Разработка автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани
Курсовой проект - Разное
Другие курсовые по предмету Разное
.Enabled := False;.Enabled := False;.Visible := True;;.AmnB;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBCtrls, ComCtrls, ToolWin;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TDBMemo;ToolButton11Click(Sender: TObject);ToolButton1Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TAmnBForm;DataModule;
{$R *.dfm}TAmnBForm.ToolButton11Click(Sender: TObject);.AnmB.Cancel;;;TAmnBForm.ToolButton1Click(Sender: TObject);.AnmB.Fields.Fields[1].AsInteger := DM.PacAll.Fields.Fields[0].AsInteger;.AnmB.Post;;TAmnBForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;.AmnZ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, DBCtrls;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TDBMemo;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton11Click(Sender: TObject);ToolButton1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TAmnZForm;
Main, DataModule;
{$R *.dfm}TAmnZForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;TAmnZForm.ToolButton11Click(Sender: TObject);.AnmZ.Cancel;;;TAmnZForm.ToolButton1Click(Sender: TObject);.AnmZ.Fields.Fields[1].AsInteger := .PacAll.Fields.Fields[0].AsInteger;.AnmZ.Post;;.
Antrop;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Mask, DBCtrlsEh;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TPanel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;: TDBNumberEditEh;ToolButton11Click(Sender: TObject);ToolButton2Click(Sender: TObject);ToolButton1Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TAntropForm;Main, DataModule;
{$R *.dfm}TAntropForm.ToolButton11Click(Sender: TObject);;;TAntropForm.ToolButton2Click(Sender: TObject);.Antrop.Cancel;;;TAntropForm.ToolButton1Click(Sender: TObject);.Antrop.Fields.Fields[1].AsInteger := DM.PacAll.Fields.Fields[0].AsInteger;.Antrop.Post;;TAntropForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;.
BistrVvod;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrlsEh, DBLookupEh, StdCtrls, ExtCtrls, DBCtrls, Mask,, ToolWin, ImgList;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBRadioGroup;: TButton;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TButton;: TLabel;: TDBDateTimeEditEh;: TImageList;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton2Click(Sender: TObject);ToolButton3Click(Sender: TObject);ToolButton1Click(Sender: TObject);Button4Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TBistrVvodForm;DataModule, DataModuleSpr, VibVrach, Palat;
{$R *.dfm}TBistrVvodForm.FormClose(Sender: TObject;Action: TCloseAction);.Pacient.Cancel;:= caFree;;TBistrVvodForm.ToolButton2Click(Sender: TObject);.Pacient.Cancel;;;TBistrVvodForm.ToolButton3Click(Sender: TObject);.Pacient.Insert;;TBistrVvodForm.ToolButton1Click(Sender: TObject);.Pacient.Post;.PacAll.Requery([]);.Pacient.Edit;;TBistrVvodForm.Button4Click(Sender: TObject);.Create(Application);;TBistrVvodForm.Button3Click(Sender: TObject);.Create(Application);;.
DateF;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Mask, DBCtrlsEh;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TPanel;: TLabel;: TDBDateTimeEditEh;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton2Click(Sender: TObject);ToolButton1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TDateForm;Main, Vipisk, DataModule, ADODB, DB, ConvUtils;
{$R *.dfm}TDateForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;TDateForm.ToolButton2Click(Sender: TObject);;;TDateForm.ToolButton1Click(Sender: TObject);.Create(Application).Label1.Caption := Планируется к выписке на: + DBDateTimeEditEh1.Text;DM.vipis do;.Clear;.Add(sel_pacient;2);.Add( + DBDateTimeEditEh1.Text + );;;;;;.
Diagnoz;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrlsEh, StdCtrls, Mask, ExtCtrls, DBCtrls, Grids, DBGridEh,, ToolWin;= class(TForm): TDBGridEh;: TPanel;: TLabel;: TDBCheckBoxEh;: TDBRadioGroup;: TLabel;: TDBDateTimeEditEh;: TLabel;: TDBEditEh;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TDBMemo;: TToolButton;: TToolButton;DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;: TFont; var Background: TColor; State: TGridDrawState);FormClose(Sender: TObject; var Action: TCloseAction);ToolButton5Click(Sender: TObject);ToolButton1Click(Sender: TObject);ToolButton2Click(Sender: TObject);ToolButton4Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TDiagnozForm;DataModule, Main, DataModuleSpr;
{$R *.dfm}TDiagnozForm.DBGridEh1GetCellParams(Sender: TObject;: TColumnEh; AFont: TFont; var Background: TColor;: TGridDrawState);DBGridEh1.SumList.RecNo mod 2 = 1 then:= $00ddbbff:= clSkyBlue;;TDiagnozForm.FormClose(Sender: TObject;Action: TCloseAction);:= caFree;;TDiagnozForm.ToolButton5Click(Sender: TObject);.Clear;;TDiagnozForm.ToolButton1Click(Sender: TObject);.Text := DBGridEh1.Fields[1].AsString;;TDiagnozForm.ToolButton2Click(Sender: TObject);;;TDiagnozForm.ToolButton4Click(Sender: TObject);.Diagn.FieldByName(Id_Pac).AsInteger := .PacAll.Fields.Fields[0].AsInteger;.Diagn.FieldByName(Diag).AsString := DBMemo1.Text;;;.
DataModule;, Classes, DB, ADODB;= class(TDataModule): TADOConnection;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TStringField;: TStringField;: TStringField;: TSmallintField;: TSmallintField;_Vrach: TStringField;: TADOQuery;: TDataSource;_Pacient: TAutoIncField;: TStringField;: TADOQuery;: TDataSource;: TDateTimeField;: TStringField;: TDateTimeField;: TStringField;: TWordField;: TADOQuery;: TDataSource;_sanator: TSmallintField;_Uslug: TSmallintField;_Palat: TSmallintField;_Vrach: TSmallintField;: TVariantField;: TDateTimeField;: TBooleanField;: TBooleanField;_TipPut: TSmallintField;: TSmallintField;_Konting: TSmallintField;_SocPol: TSmallintField;_GrOtd: TSmallintField;_Prodav: TSmallintField;_Kategor: TSmallintField;: TStringField;_TipDoc: TSmallintField;: TStringField;: TStringField;: TDateTimeField;: TStringField;_Oganiz: TSmallintField;_Otdel: TSmallintField;_Dolgnost: TSmallintField;: TStringField;_SrokP: TSmallintField;_Transp: TSmallintField;: TSmallintField;: TStringField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;: TBooleanField;_Sopr: TSmallintField;: TDateTimeField;_Uslug: TStringField;: TStringField;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;: TSmallintField;: TWordField;: TSmallintField;: TStringField;: TStringField;: TStringField;: TStringField;: TStringField;
{ Private declarations }
{ Public declarations };: TDM;
{$R *.dfm}.
DataModuleSpr;, Classes, DB, ADODB;= class(TDataModule): TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOConnection;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;
{ Private declarations }
{ Public declarations };: TDMSpr;DataModule;
{$R *.dfm}.
Dostup;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, DBCtrlsEh, StdCtrls, Mask, DBLookupEh,, Menus;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TImageList;: TLabel;: TLabel;: TLabel;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TDBEditEh;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;ToolButton2Click(Sender: TObject);ToolButton1Click(Sender: TObject);FormCreate(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TDostupForm;DataModuleSpr, DataModule, DB, ADODB, Main, SpisPacint;
{$R *.dfm}TDostupForm.ToolButton2Click(Sender: TObject);.Close;;TDostupF