“Бизнес-проектіні моделдеу және басқару” ақпараттық жүйесін тұрғызу

Дипломная работа, 04 Марта 2015, автор: пользователь скрыл имя

Описание работы

Нарықтық экономика жағдайында фирма шаруашылықты жүргізудегі негізгі объективті буынға айналады. Мәселе мынада, рыноктық сұранысты еске ала отырып, фирма тек өнім өндіріп қана қоймай, сонымен қатар халықты жұмыспен қамту, жаңадан жұмыс орындарын ашу, еңбекақыларын есептеу т.б. жұмыстарды іске асырған жөн.

Содержание работы

1. Проектілерді басқарудың ақпараттық жүйесін тұрғызуды негіздеу........3
Нарық жағдайында бизнес жоспар құру қажеттілігі және оның маңызы мәні.........................................................................................................................6
1.2 Ақпараттық жүйені құрудың мақсаты мен тағайындалуы ............................15
1.3 Ақпараттық жүйесіне қойылатын талаптар ....................................................15
1.4 Концептуалдың сызба нұсқасы ........................................................................26

2. Ақпарат жүйесін жобалау................................................................................29
2.1 Ақпараттық жүйедегі есептің орны..................................................................29
2.2 Есеп қойылымы..................................................................................................29
2.3 Кіріс ақпараты.....................................................................................................30
2.4 Шығыс ақпараты.................................................................................................32
2.5 Ақпараттық база.................................................................................................34
2.6 Жобалауды басқару бөлімінің есеп кешенін орындау үшін қолданылатын программалық құралдардың сипаттамасы.......................................................39
Жобалауды басқару бөлімінің есеп кешенін шешуге арналған программа сипаттамасы .......................................................................................................41

3. Ақпараттық жүйе деңгейін бағалау және қолдануы мүмкін болатын сала......................................................................................................................49
3.1 Фирма жағдайын талдаудың қпараттық жүйесін тұрғызуға кететін шығынын есептеу.................................................................................................................49
3.2 Ақпараттық өнімді коммерциялық сатуға берілетін кеңестер және нәтижесін талдау...................................................................................................................56

Қорытынды.................................................................................................................57
Қолданылған әдебиеттер ..........................................................

Скачать архив (859.40 Кб) Сколько стоит заказать работу?

Файлы: 1 файл

Дип.-“Бизнес-проектіні-моделдеу-және-басқару”ақпараттық-жүйесін-тұрғызу.doc

— 1.37 Мб (Скачать файл)

Сондай-ақ ақпараттық жүйенің тақырыптық ауданының мазмұнын өзгертуге қабілетін атап айту керек. Оны банкте ақпаратты өңдеу мен сақтау үшін мәліметтер қорында сапалық құрамы мен ақпарат көлемінен тәуелсіз пайдалануға болады. Мәліметтер қорының бүтіндігі оларды пайдалану кезі мен активті күйде тез сақталуын қамтамасыз етеді. Ақпаратты қамтамасыз етудің кешені жүйеге түсетін мәліметтерді унификациялауға мүмкіндік беріп, өңдеуді ыңғайлы түрде келтіреді. 

       Осы ақпараттық  жүйенің сенімділігі жұмыс кезінде  өз қасиеттерін ұзақ уақыт  сақтай алуымен сипатталады. Барлық  ақпараттық жүйе бір ғана мақсатқа  бағындырылған – қарыз алушының  төлемқабілетін жедел, үздіксіз  және сенімді жұмыс істеуін қамтамасыз ету. Жүйенің модульдік құрылуы оның логикалық байланысын және жалпы стратегиялық бағытталуын кеңейту мен жеке бөліктерінің жұмыс істеуінің оптималдылығына байланысты.                                             

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                Пайдаланылған әдебиеттер 

 

        1. Қ.С. Байшоланова Ақпараттық жүйелер теориясы, Алматы: Экономика -2002ж.
        2. Ақпараттандыру туралы Қазақстан Республикасының заңдары. 1 маусым 2003 жыл.
        3. «Практикум по эконометрикең - п.р. И.И. Елисеевой, Москва 2004.
        4. «Математическое программирование в примерах и задачахң - И.Л. Акулич, 1986
        5. «Эконометрия» - Е.И. Куулинич, Москва – 1999ж.
        6. «Статистиканың жалпы теориясың Ызғарбек Әміреұлы, Алматы-1998ж.
        7. Системы управления базами данных и знаний: Справочное издание./ Под ред. А.Н. Наумова. - М.: Финансы и статистика, 1991. – 352 с.
        8. Стороженко Л.А., Матвеева И.А.  Информационно-компьютерные системы учета в Республике Казахстан./ Сборник статей “Информационные системы в экономике”. - Алматы: Экономика – 1997 г. - с.87-93.
        9. Неверова Е.Г.  Технология проектирования баз данных и знаний, Алматы - 2000.
        10. Н. Назарбаев Қазақстан – 2030, ел президентінің Қазақстан халқына жодауы, Білім:1998ж.
        11. Указ Президента Республики Казахстан № 359 от 14 марта 2000 года "О государственной программе обеспечения информационной безопасности Республики Казахстан на 2000 - 2003 годы"
        12. Н.Б.Бралиева, Қ.С.Байшоланова, Н.Л.Гагарина “Экономикадағы ақпараттық жүйелері”. Оқу құралы. Алматы, 2001
        13. Н.Б.Бралиева, Л.А.Байбөлекова, Қ.Т.Балашов “Ақпараттық менеджмент негіздері”. Оқу құралы. Алматы: Экономика, 2000
        14. Н.Б.Бралиева, В.Ф.Тимошенко, Н.Л.Гагарина “Информационные системы бизнеса”. Алматы, 1994
        15. Қазақстан Республикасының Президентінің №359 14 маусым-нан 2000 жыл. “2000-2003 жылға Қазақстан Республикасы мемлекетініңақпараттық қауіпсіздігінің программалық жабдықтауы”.
        16. Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000
        17. Бралиева Н.Б., Куличихин А.А. “Информационные аспекты создания и функционирования автоматизированных информационных систем”
        18. Қазақстан Республикасының Президентінің №359 14 маусымнан 2000 жыл. “2000-2003 жылға Қазақстан Республикасы мемлекетінің ақпараттық қауіпсіздігінің программалық жабдықтауы”.
        19. “Информационные системы в экономике”. Учебник под редакцией Дика В.В., Москва, 1999
        20. Н.Г.Семенова “Автомотизированные информационные технологий в экономике”. Москва, 2000
        21. А.Ө.Биярова “Экономикалық кибернетика”. Оқу құралы. Алматы, 2001

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қ О С Ы М Ш А

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша 1

 

unit UnitMain;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ImgList, Menus, ComCtrls, ExtCtrls, Buttons, ActnList;

 

type

  TFrmMain = class(TForm)

    Panel1: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    ImageList1: TImageList;

    ActionList1: TActionList;

    StatusBar1: TStatusBar;

    DateTimePicker1: TDateTimePicker;

    procedure N6Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  FrmMain: TFrmMain;

 

implementation

 

uses UnitModul, UnitObch, UnitIPN, UnitOPB, UnitCO, UnitAbout, UnitPass;

 

{$R *.dfm}

 

procedure TFrmMain.N6Click(Sender: TObject);

begin

if FrmObch=nil then FrmObch:=TFrmObch.Create(Self)

else FrmObch.Show;

end;

 

procedure TFrmMain.FormCreate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:=DateToStr(DateTimePicker1.DateTime);

StatusBar1.Panels[1].Text:='Вход: Не выполнен!';

end;

 

procedure TFrmMain.N12Click(Sender: TObject);

begin

WinExec('C:\Program Files\Outlook Express\msimn.exe',SW_RESTORE);

end;

 

procedure TFrmMain.N11Click(Sender: TObject);

var f1,f2:TextFile;

    s:string;

begin

    AssignFile(f1,'C:\Kanat\Base\basa1.db');

    AssignFile(f2,'C:\Kanat\Export\basa1.lnk');

    Reset(f1);

    Rewrite(f2);

    while not eof(f1) do

     begin

       readln(f1,s);

       writeln(f2,s);

     end;

    CloseFile(f1);

    CloseFile(f2);

    N11.Enabled:=false;

    MessageDlg('Файл заблокирован!',mtWarning,[mbOK],0);

end;

 

procedure TFrmMain.N7Click(Sender: TObject);

begin

if FrmIPN=nil then FrmIPN:=TFrmIPN.Create(Self)

else FrmIPN.Show;

end;

 

procedure TFrmMain.N8Click(Sender: TObject);

begin

if Frmopb=nil then Frmopb:=TFrmopb.Create(Self)

else Frmopb.Show;

end;

 

procedure TFrmMain.N9Click(Sender: TObject);

begin

if FrmCO=nil then FrmCO:=TFrmCO.Create(Self)

else FrmCO.Show;

end;

 

procedure TFrmMain.N15Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

 

procedure TFrmMain.N2Click(Sender: TObject);

begin

PasswordDlg.ShowModal;

end;

 

procedure TFrmMain.N3Click(Sender: TObject);

begin

ActiveMDIChild.Free;

end;

 

procedure TFrmMain.N4Click(Sender: TObject);

begin

close;

end;

 

end.

 

unit UnitCO;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Menus;

 

type

  TFrmCO = class(TForm)

    Panel1: TPanel;

    DBGrid1: TDBGrid;

    Label13: TLabel;

    ComboBox1: TComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Label3: TLabel;

    Edit2: TEdit;

    Label4: TLabel;

    Edit3: TEdit;

    Label5: TLabel;

    Label6: TLabel;

    Edit4: TEdit;

    Label7: TLabel;

    Edit5: TEdit;

    Label8: TLabel;

    Edit6: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormCreate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure FormDestroy(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  FrmCO: TFrmCO;

 

implementation

 

uses UnitMain, UnitModul;

 

{$R *.dfm}

 

procedure TFrmCO.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

 

procedure TFrmCO.FormCreate(Sender: TObject);

begin

DataModule1.TabCO.Open;

DataModule1.TabOPB.Open;

DataModule1.TabIPN.Open;

DataModule1.TabAbout.Open;

DataModule1.TabAbout.First;

ComboBox1.Clear;

while  not (DataModule1.TabAbout.Eof) do

  begin

    ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);

    DataModule1.TabAbout.Next;

  end;

 

end;

 

procedure TFrmCO.BitBtn1Click(Sender: TObject);

begin

DataModule1.TabCO.Append;

DataModule1.TabCO.FieldByName('RNN').AsString:=ComboBox1.Text;

 

DataModule1.TabCO.FieldByName('r1a1').AsString:=Edit1.Text;

DataModule1.TabCO.FieldByName('r1b1').AsString:=Edit2.Text;

DataModule1.TabCO.FieldByName('r1c1').AsString:=Edit3.Text;

 

DataModule1.TabCO.FieldByName('r1a2').AsString:=Edit4.Text;

DataModule1.TabCO.FieldByName('r1b2').AsString:=Edit5.Text;

DataModule1.TabCO.FieldByName('r1c2').AsString:=Edit6.Text;

DataModule1.TabCO.Post;

end;

 

procedure TFrmCO.BitBtn2Click(Sender: TObject);

begin

DataModule1.TabCO.Delete;

end;

 

procedure TFrmCO.BitBtn3Click(Sender: TObject);

begin

DataModule1.TabCO.Edit;

DataModule1.TabCO.Post;

end;

 

procedure TFrmCO.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit2.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit1.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit3.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit2.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit3.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit4.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit4.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit6.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit5.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :BitBtn1.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit6.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmCO.FormDestroy(Sender: TObject);

begin

DataModule1.TabIPN.Close;

DataModule1.TabCO.Close;

DataModule1.TabAbout.close;

DataModule1.TabOPB.Close;

FrmCO:=nil;

end;

 

procedure TFrmCO.N2Click(Sender: TObject);

begin

DataModule1.RvProject2.Execute;

end;

 

procedure TFrmCO.N3Click(Sender: TObject);

begin

DataModule1.RvProject1.Execute;

end;

 

end.

 

unit UnitAbout;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls;

 

type

  TAboutBox = class(TForm)

    Panel1: TPanel;

    ProgramIcon: TImage;

    ProductName: TLabel;

    Version: TLabel;

    Copyright: TLabel;

    Comments: TLabel;

    OKButton: TButton;

    procedure OKButtonClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  AboutBox: TAboutBox;

 

implementation

 

uses UnitMain;

 

{$R *.dfm}

 

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

 

end.

 

unit UnitIPN;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls, Buttons, Grids, DBGrids, ExtCtrls;

 

type

  TFrmIPN = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label5: TLabel;

    BitBtn1: TBitBtn;

    ComboBox1: TComboBox;

    Panel2: TPanel;

    DBGrid1: TDBGrid;

    BitBtn2: TBitBtn;

    Label6: TLabel;

    Edit4: TEdit;

    Label7: TLabel;

    Edit5: TEdit;

    Label8: TLabel;

    Edit6: TEdit;

    Label9: TLabel;

    Edit7: TEdit;

    Label10: TLabel;

    Edit8: TEdit;

    Label11: TLabel;

    Edit9: TEdit;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Edit10: TEdit;

    Label16: TLabel;

    Edit11: TEdit;

    Label17: TLabel;

    Edit12: TEdit;

    Label18: TLabel;

    Label19: TLabel;

    Edit13: TEdit;

    Label20: TLabel;

    Edit14: TEdit;

    Label21: TLabel;

    Edit15: TEdit;

    BitBtn3: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure BitBtn3Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure Edit7KeyPress(Sender: TObject; var Key: Char);

    procedure Edit8KeyPress(Sender: TObject; var Key: Char);

    procedure Edit9KeyPress(Sender: TObject; var Key: Char);

    procedure Edit10KeyPress(Sender: TObject; var Key: Char);

    procedure Edit11KeyPress(Sender: TObject; var Key: Char);

    procedure Edit12KeyPress(Sender: TObject; var Key: Char);

    procedure Edit13KeyPress(Sender: TObject; var Key: Char);

    procedure Edit14KeyPress(Sender: TObject; var Key: Char);

    procedure Edit15KeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  FrmIPN: TFrmIPN;

 

implementation

 

uses UnitMain, UnitModul;

 

{$R *.dfm}

 

procedure TFrmIPN.FormCreate(Sender: TObject);

begin

DataModule1.TabAbout.Open;

DataModule1.TabAbout.First;

while not(DataModule1.TabAbout.Eof) do

  begin

    ComboBox1.Items.Add(DataModule1.TabAboutRNN.Value);

    DataModule1.TabAbout.Next;

  end;

DataModule1.TabAbout.close;

DataModule1.TabIPN.Open;

end;

 

procedure TFrmIPN.FormDestroy(Sender: TObject);

begin

DataModule1.TabIPN.close;

FrmIPN:=nil;

end;

 

procedure TFrmIPN.BitBtn1Click(Sender: TObject);

begin

DataModule1.TabIPN.Append;

DataModule1.TabIPN.FieldByName('RNN').AsString:=ComboBox1.Text;

 

DataModule1.TabIPN.FieldByName('r1a1').AsString:=Edit1.Text;

DataModule1.TabIPN.FieldByName('r1b1').AsString:=Edit2.Text;

DataModule1.TabIPN.FieldByName('r1c1').AsString:=Edit3.Text;

 

DataModule1.TabIPN.FieldByName('r1a2').AsString:=Edit4.Text;

DataModule1.TabIPN.FieldByName('r1b2').AsString:=Edit5.Text;

DataModule1.TabIPN.FieldByName('r1c2').AsString:=Edit6.Text;

 

DataModule1.TabIPN.FieldByName('r1a3').AsString:=Edit7.Text;

DataModule1.TabIPN.FieldByName('r1b3').AsString:=Edit8.Text;

DataModule1.TabIPN.FieldByName('r1c3').AsString:=Edit9.Text;

 

DataModule1.TabIPN.FieldByName('r1a4').AsString:=Edit10.Text;

DataModule1.TabIPN.FieldByName('r1b4').AsString:=Edit11.Text;

DataModule1.TabIPN.FieldByName('r1c4').AsString:=Edit12.Text;

 

DataModule1.TabIPN.FieldByName('r1a5').AsString:=Edit13.Text;

DataModule1.TabIPN.FieldByName('r1b5').AsString:=Edit14.Text;

DataModule1.TabIPN.FieldByName('r1c5').AsString:=Edit15.Text;

 

DataModule1.TabIPN.Post;

end;

 

procedure TFrmIPN.BitBtn2Click(Sender: TObject);

begin

DataModule1.TabIPN.Delete;

end;

 

procedure TFrmIPN.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

 

procedure TFrmIPN.BitBtn3Click(Sender: TObject);

begin

DataModule1.TabIPN.Edit;

DataModule1.TabIPN.Post;

end;

 

procedure TFrmIPN.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit2.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit1.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmIPN.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit3.SetFocus;

'.',',': begin

key:=DecimalSeparator;

if pos(DecimalSeparator,Edit2.Text)<>0 then key:=char(0);

end;

else key:=char(0);

end;

end;

 

procedure TFrmIPN.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8: ;

#13 :edit4.SetFocus;

Информация о работе “Бизнес-проектіні моделдеу және басқару” ақпараттық жүйесін тұрғызу

Связанные документы

Бизнес-проектіні моделдеу және басқару ақпараттық жүйесін тұрғызу

Ұйым элементтері және басқару үрдісі

Мемлекетті басқару және қалыптастыру

Бөлім. Басқарудың теориясы және әдістемесі

Жобаларды басқару негіздерінің даму тарихы

Инновация және адам ресурстарын басқару

Ақпараттық жүйелерді жобалау негіздері

Процестер және аппараттар курсының пәні

Мемлекеттік қызметті басқару және оның даму болашағы

Қолданылған әдебиеттер және басқа да ақпарат көздері

Шағын және орта бизнес

Ақпараттық жүйенің

Похожие темы

Зарубежный малый бизнес

Зарубежный опыт малого бизнеса

Зарубежный опыт развития малого бизнеса