Разработка системы управления электронным документооборотом на примере ООО "Курортное"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ction;: TADOTable;: TXPManifest;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TAutoIncField;: TWideStringField;: TAutoIncField;: TWideStringField;: TBooleanField;: TBooleanField;: TBooleanField;: TAutoIncField;: TWideStringField;: TWideStringField;: TWideStringField;: TIntegerField;: TIntegerField;: TIntegerField;: TAutoIncField;: TWideStringField;: TWideStringField;: TWideStringField;: TIntegerField;: TStringField;: TAutoIncField;: TWideStringField;: TWideStringField;: TWideStringField;: TWideStringField;: TDateTimeField;: TWideStringField;: TWideStringField;: TWideStringField;: TAutoIncField;: TWideStringField;: TSmallintField;: TSmallintField;: TDateTimeField;: TDateTimeField;: TIntegerField;: TIntegerField;: TIntegerField;: TIntegerField;: TDateTimeField;: TDateTimeField;: TDateTimeField;: TAutoIncField;: TWideStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TAutoIncField;: TIntegerField;: TStringField;ClaimAfterInsert(DataSet: TDataSet);
{ Private declarations }
{ Public declarations };
: TDM;
MainUnit;
{$R *.dfm}
TDM.ClaimAfterInsert(DataSet: TDataSet);.Claim.FieldByName('Сформировал').AsInteger:=MainUnit.UserIndex;.Claim.FieldByName('ДатаФормирования').AsDateTime:=Now;;
.
FIUnit;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls;= class(TForm): TLabel;: TDBLookupComboBox;: TLabel;: TDBLookupComboBox;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TGroupBox;: TLabel;: TLabel;: TDBLookupComboBox;: TDBEdit;: TGroupBox;: TLabel;: TLabel;: TDBLookupComboBox;: TDBEdit;: TGroupBox;: TLabel;: TLabel;: TDBLookupComboBox;: TDBEdit;
{ Private declarations }
{ Public declarations };: TFIForm;DMUnit;
{$R *.dfm}.