Geum.ru

Внедрение автоматизированного рабочего места ОАО "Уфалейникель" Серовский рудник

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TDBGrid;: TDataSource;: TButton;: TDBNavigator;DBGznaklEnter(Sender: TObject);DBGznaklExit(Sender: TObject);

Продолжение приложения 3Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TfNakl2;Unit_dm, Unit_rep;

{$R *.DFM}TfNakl2.DBGznaklEnter(Sender: TObject);DM.ATnakl.Modified then DM.ATnakl.Post;;TfNakl2.DBGznaklExit(Sender: TObject);DM.ATznakl.Modified then DM.ATznakl.Post;;TfNakl2.Button1Click(Sender: TObject);.ADSnakl.Close;.ADSnakl.Parameters[0].Value := DM.ATnaklNum_nakl.AsInteger;.ADSnakl.Open;.QRnakl.preview;;.Unit_prov;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Продолжение приложения 3, Db, Mask, DBCtrls, ADODB;= class(TForm): TADODataSet;_bSumSumma: TFloatField;_sSumSumma: TFloatField;: TFloatField;: TLabel;: TDBEdit;: TDataSource;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TButton;

{ Private declarations }

{ Public declarations };: TfProv;

{$R *.DFM}.