Разработка автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани
Курсовой проект - Разное
Другие курсовые по предмету Разное
orm.ToolButton1Click(Sender: TObject);, w : String;:= IntToStr(DBLookupComboboxEh1.KeyValue);:= IntToStr(DBLookupComboboxEh2.KeyValue);DM.Dostup do;.Clear;.Add(select * from Dostup);.Add(where Id_Name = + q + );.Add(and id_Prior = + w + );;;;Trim(DM.Dostup.Fields.Fields[3].AsString) = Trim(DBEditEh1.Text) thenTrim(DBLookupComboboxEh2.Text) = Регистратор then.N4.Visible := False;.C1.Visible := False;;Trim(DBLookupComboboxEh2.Text) = Врач then.N4.Visible := False;.N3.Visible := False;.C1.Visible := False;.ToolButton2.Visible := False;.ToolButton3.Visible := False;.ToolButton4.Visible := False;.ToolButton7.Visible := False;;.Show;;
ShowMessage(Не верный пароль или пользователь);
end;TDostupForm.FormCreate(Sender: TObject);.Text := ;.ShowModal;;TDostupForm.FormClose(Sender: TObject; var Action: TCloseAction);.Close;;.Epid;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh;= class(TForm): TToolBar;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton11Click(Sender: TObject);ToolButton1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TEpidForm;Main, DataModule;
{$R *.dfm}TEpidForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;TEpidForm.ToolButton11Click(Sender: TObject);.Epid.Cancel;;;TEpidForm.ToolButton1Click(Sender: TObject);.Epid.Fields.Fields[1].AsInteger := .PacAll.Fields.Fields[0].AsInteger;.Epid.Post;;.
History;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGridEh;= class(TForm): TDBGridEh;FormClose(Sender: TObject; var Action: TCloseAction);DBGridEh1CellClick(Column: TColumnEh);
{ Private declarations }
{ Public declarations };: THistoryForm;
DataModuleSpr, Info, PacDiag, DataModule, Antrop, DB, AmnZ, Osm, Vip,, Zam, AmnB, Epid;
{$R *.dfm}THistoryForm.FormClose(Sender: TObject;Action: TCloseAction);:= caFree;;THistoryForm.DBGridEh1CellClick(Column: TColumnEh);DMSpr.His.Fields.Fields[0].AsInteger of
: TInfoForm.Create(Application);
:DM.Diagn do;.Clear;.Add(select * from Diagn);.Add(where Id_Pac = + (DM.Pacient.Fields.Fields[0].AsInteger));;;;.Create(Application);;
then;;.Create(Application);;">:DM.AnmZ do;.Clear;.Add(select * from AnZ);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
then;;.Create(Application);;">:DM.AnmB do;.Clear;.Add(select * from AnB);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
then;;.Create(Application);;">:DM.Epid do;.Clear;.Add(select * from Epid);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
then;;.Create(Application);;">:DM.Antrop do;.Clear;.Add(select * from Antrop);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
:DM.Osm do;.Clear;.Add(select * from Osm);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;;.Create(Application);;
then;;.Create(Application);;">:DM.Vip do;.Clear;.Add(select * from Vipis);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
then;;.Create(Application);;">:DM.Zakl do;.Clear;.Add(select * from ZAkl);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;
then;;.Create(Application);;;;.">:DM.Zam do;.Clear;.Add(select * from Zam);.Add(where Id_Pac = + (DM.PacAll.Fields.Fields[0].AsInteger));;;Fields.Fields[0].AsString <> then;;.Create(Application);;;;.
Info;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, ComCtrls, ToolWin, StdCtrls, Mask, DBCtrlsEh,;= class(TForm): TToolBar;: TToolButton;: TPanel;: TPanel;: TPanel;: TLabel;: TLabel;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TLabel;: TLabel;: TLabel;: TLabel;: TDBDateTimeEditEh;: TLabel;: TDBLookupComboboxEh;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBLookupComboboxEh;: TDBDateTimeEditEh;: TDBEditEh;: TLabel;: TLabel;: TLabel;: TDBLookupComboboxEh;: TDBLookupComboboxEh;: TDBLookupComboboxEh;ToolButton13Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TInfoForm;
DataModule, DataModuleSpr;
{$R *.dfm}TInfoForm.ToolButton13Click(Sender: TObject);;;TInfoForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;.
Osm;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, ToolWin, Grids, DBGridEh, StdCtrls, Mask, DBCtrlsEh;= class(TForm): TDBGridEh;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;: TDBEditEh;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton11Click(Sender: TObject);ToolButton3Click(Sender: TObject);ToolButton1Click(Sender: TObject);ToolButton5Click(Sender: TObject);ToolButton2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TOsmForm;Main, DataModule;
{$R *.dfm}TOsmForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;TOsmForm.ToolButton11Click(Sender: TObject);;;TOsmForm.ToolButton3Click(Sender: TObject);.Osm.Cancel;;TOsmForm.ToolButton1Click(Sender: TObject);.Osm.Fields.Fields[1].AsInteger := .PacAll.Fields.Fields[0].AsInteger;.Osm.Post;;TOsmForm.ToolButton5Click(Sender: TObject);.Osm.Edit;;TOsmForm.ToolButton2Click(Sender: TObject);.Osm.Insert;;.