Внедрение автоматизированного рабочего места ОАО "Уфалейникель" Серовский рудник
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Есть три номинальных уровня языка программирования: машинный код, язык ассемблера, и язык компилятора.
ПРИЛОЖЕНИЕ 2
Структура автоматизированных рабочих мест
ПРИЛОЖЕНИЕ 3
Исходный текст программы
Unit_act;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBCtrls, Mask, Db, ExtCtrls, Grids, DBGrids;= class(TForm): TDBGrid;: TDBNavigator;: TDataSource;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;: TLabel;: TDBEdit;: TButton;: TButton;DBGact2Enter(Sender: TObject);DBGact2Exit(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfAct2;
Продолжение приложения 3Unit_dm, Unit_rep, Unit_rep2;
{$R *.DFM}TfAct2.DBGact2Enter(Sender: TObject);DM.ATact.Modified then DM.ATact.Post;;TfAct2.DBGact2Exit(Sender: TObject);DM.ATzact.Modified then DM.ATzact.Post;;TfAct2.Button2Click(Sender: TObject);.ADScalc.Close;.ADScalc.Parameters[0].Value := DM.ATactN_act.AsInteger;.ADScalc.Open;.QRcalc.Preview;;.Unit_act2;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, StdCtrls;= class(TForm)_add: TButton;_ed: TButton;_del: TButton;_ex: TButton;: TDBGrid;: TDataSource;
Продолжение приложения 3Bftn_addClick(Sender: TObject);Bftn_edClick(Sender: TObject);Bftn_delClick(Sender: TObject);Bftn_exClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfAct;Unit_dm, Unit_act;
{$R *.DFM}TfAct.Bftn_addClick(Sender: TObject);.ATact.Insert;.ATzact.Close;.ATzact.Open;.ShowModal;;TfAct.Bftn_edClick(Sender: TObject);.ATact.Edit;.ATzact.Close;.ATzact.Open;.ShowModal;;TfAct.Bftn_delClick(Sender: TObject);.ATact.Delete;;TfAct.Bftn_exClick(Sender: TObject);;
Продолжение приложения 3;.Unit_arm;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls;= class(TForm): TRadioGroup;: TGroupBox;_1: TButton;_2: TButton;Bfarm_2Click(Sender: TObject);Bfarm_1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfArm;Unit_buh, Unit_ceh, Unit_skl;
{$R *.DFM}TfArm.Bfarm_2Click(Sender: TObject);;;TfArm.Bfarm_1Click(Sender: TObject);
Продолжение приложения 3;RadioGroup1.ItemIndex of
: fSclad.Show;
: fBuh.Show;
: fCeh.Show;;;.Unit_buh;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TOpenDialog;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;
Продолжение приложения 3: TMenuItem;: TMenuItem;: TMenuItem;Nf1Click(Sender: TObject);Nf2Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);NsfClick(Sender: TObject);NpodClick(Sender: TObject);NpsClick(Sender: TObject);NnalClick(Sender: TObject);NzClick(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);NppClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfBuh;Unit_dm, Unit_arm, Unit_tn, Unit_mc, Unit_prov;
{$R *.DFM}TfBuh.Nf1Click(Sender: TObject);DM.ACon do begin;:= 'Microsoft.Jet.OLEDB.4.0';.InitialDir := ExtractFilePath(Application.ExeName);OpenDialog1.Execute then['Data Source'].Value := OpenDialog1.FileName;;.Enabled := true;.Enabled := true;;;
Продолжение приложения 3;TfBuh.Nf2Click(Sender: TObject);;;
procedure TfBuh.FormClose(Sender: TObject; var Action: TCloseAction);
begin.Close;;TfBuh.NsfClick(Sender: TObject);fTn do begin:= 'Счета-фактуры';.ATsftn.Filter := 'Vid = false';.ATsftn.Filtered := true;.ATsftn.Close;.ATsftn.Open;;;;TfBuh.NpodClick(Sender: TObject);.ATpodr.Close;.Caption := 'Справочник: "Подразделения"';.DSmc.DataSet := DM.ATpodr;.ATpodr.Open;.ShowModal;;TfBuh.NpsClick(Sender: TObject);.ATpsch.Close;.Caption := 'Справочник: "План счетов"';.DSmc.DataSet := DM.ATpsch;.ATpsch.Open;.ShowModal;;TfBuh.NnalClick(Sender: TObject);
Продолжение приложения 3.ATnalog.Close;.Caption := 'Справочник: "Налоги"';.DSmc.DataSet := DM.ATnalog;.ATnalog.Open;.ShowModal;;TfBuh.NzClick(Sender: TObject);.ATzatr.Close;.Caption := 'Справочник: "Затраты"';.DSmc.DataSet := DM.ATzatr;.ATzatr.Open;.ShowModal;;TfBuh.N7Click(Sender: TObject);.ATpart.Close;.Caption := 'Справочник: "Партнеры"';.DSmc.DataSet := DM.ATpart;.ATpart.Open;.ShowModal;;TfBuh.N8Click(Sender: TObject);.ATbank.Close;.Caption := 'Справочник: "Банки"';.DSmc.DataSet := DM.ATbank;.ATbank.Open;.ShowModal;;TfBuh.NppClick(Sender: TObject);fProv do begin.Close;.Open;;;;
Продолжение приложения 3.Unit_ceh;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TOpenDialog;Nf1Click(Sender: TObject);Nf2Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);NuseClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfCeh;
Продолжение приложения 3Unit_dm, Unit_arm, Unit_act2;
{$R *.DFM}TfCeh.Nf1Click(Sender: TObject);DM.ACon do begin;:= 'Microsoft.Jet.OLEDB.4.0';.InitialDir := ExtractFilePath(Application.ExeName);OpenDialog1.Execute then['Data Source'].Value := OpenDialog1.FileName;;.Enabled := true;.Enabled := true;;;;TfCeh.Nf2Click(Sender: TObject);;;TfCeh.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;TfCeh.NuseClick(Sender: TObject);.ATact.Close;.ATact.Open;.ShowModal;;.Unit_dm;
Продолжение приложения 3, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ADODB;= class(TDataModule): TADOConnection;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;_sf: TAutoIncField;_sf: TIntegerField;: TDateTimeField;_nal: TIntegerField;: TIntegerField;_dov: TIntegerField;: TBooleanField;_act: TAutoIncField;_act: TIntegerField;: TDateTimeField;: TIntegerField;: TIntegerField;: TIntegerField;: TBCDField;: TFloatField;: TIntegerField;: TFloatField;: TAutoIncField;: TWideStringField;
Продолжение приложения 3: TWideStringField;_ei: TAutoIncField;_ei: TWideStringField;: TWideStringField;_mc: TAutoIncField;_k: TIntegerField;_mc: TWideStringField;_ei: TIntegerField;_p: TBCDField;_nakl: TAutoIncField;_nakl: TIntegerField;: TIntegerField;: TDateTimeField;: TIntegerField;: TIntegerField;_nal: TAutoIncField;_n: TWideStringField;_n: TBCDField;_sch: TAutoIncField;_sch: TWideStringField;_sch: TWideStringField;_p: TAutoIncField;_p: TIntegerField;_p: TWideStringField;_p: TWideStringField;_pp: TAutoIncField;: TWideStringField;_pp: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TIntegerField;_gp: TAutoIncField;_gp: TWideStringField;_zn: TAutoIncField;_act: TIntegerField;_mc: TIntegerField;: TBCDField;: TBCDField;_zatr: TIntegerField;_zn: TAutoIncField;_nakl: TIntegerField;_mc: TIntegerField;
Продолжение приложения 3: TBCDField;_zap: TAutoIncField;_sf: TIntegerField;_mc: TIntegerField;_vo: TBCDField;: TBCDField;: TIntegerField;_zat: TAutoIncField;: TWideStringField;: TIntegerField;: TDataSource;: TDataSource;: TDataSource;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;ATsftnBeforePost(DataSet: TDataSet);
{ Private declarations }
{ Public declarations };: TDM;Unit_tn;
{$R *.DFM}
Продолжение приложения 3TDM.ATsftnBeforePost(DataSet: TDataSet);fTn.Caption = 'Товарные накладные' then ATsftn.FieldValues['Vid'] := trueATsftn.FieldValues['Vid'] := false;;.Unit_mc;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBCtrls, Grids, DBGrids, Db;= class(TForm): TDataSource;: TDBGrid;: TDBNavigator;
{ Private declarations }
{ Public declarations };: TfMC;
{$R *.DFM}.Unit_nakl;
Продолжение приложения 3, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBGrids, Db, StdCtrls;= class(TForm)_ex: TButton;: TDataSource;: TDBGrid;_del: TButton;_ed: TButton;_add: TButton;Bftn_addClick(Sender: TObject);Bftn_edClick(Sender: TObject);Bftn_delClick(Sender: TObject);Bftn_exClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TfNakl;Unit_dm, Unit_nakl2;
{$R *.DFM}TfNakl.Bftn_addClick(Sender: TObject);.ATnakl.Insert;.ATznakl.Close;.ATznakl.Open;.ShowModal;;TfNakl.Bftn_edClick(Sender: TObject);.ATnakl.Edit;.ATznakl.Close;
Продолжение приложения 3.ATznakl.Open;.ShowModal;;TfNakl.Bftn_delClick(Sender: TObject);.ATnakl.Delete;;TfNakl.Bftn_exClick(Sender: TObject);;;.Unit_nakl2;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, StdCtrls, Mask, Db, Grids, DBGrids, ExtCtrls;= class(TForm):