Реферат Автоматизована система управління спрірографіческого обстеження

TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; FormActivate (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); FindEditKeyPress (Sender : TObject; var Key: Char); N11Click (Sender: TObject); N12Click (Sender: TObject);

{Private declarations}

{Public declarations};

var: TCartaForm;

implementation

uses DModule, MainForm, Pacient;

{$ R *. dfm}

procedure TCartaForm.FormActivate (Sender: TObject);

/ / Datamodule1.CartaTable.IndexFieldNames:=«Прізвище»;;

procedure TCartaForm.N3Click (Sender: TObject);. ShowModal;;

procedure TCartaForm.N4Click (Sender: TObject); Application.MessageBox (PChar («Ви дійсно хотіти удалить?»+.CartaTableDSDesigner.AsString),«Внимание!!!»,_OKCANCEL)=id_OK then.CartaTable.Delete;;

procedure TCartaForm.N6Click (Sender: TObject);. CartaTable.sort:=«Прізвище»;;

procedure TCartaForm.N7Click (Sender: TObject);. CartaTable.Sort:="Дата народження";;

procedure TCartaForm.FindEditKeyPress (Sender: TObject; var Key: Char); Length (FindEdit.Text)> 0 then.CartaTable.Filtered:=true.CartaTable.Filtered:=false;.CartaTable.Filter:=«Фамилия>»«»+FindEdit.Text+«»«»;;

procedure TCartaForm.N11Click (Sender: TObject); ();;

procedure TCartaForm.N12Click (Sender: TObject);. CartaTable.Insert;. ShowModal;;

end.

Лістинг модуля UserUnit.pas

unit UserUnit;

interface

uses, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB;

type=class (TForm): TButton;: TLabel;: TLabel;: TButton;: TEdit;: TEdit;: TADOQuery;: TButton;: TADOConnection; Button2Click (Sender: TObject); Button1Click ( Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations};

var: TUserForm;: string;: boolean;

uses DModule, MainForm;

{$ R *. dfm}

procedure TUserForm.Button2Click (Sender: TObject);. Terminate;

end;

procedure TUserForm.Button1Click (Sender: TObject); (LoginEdit.Text <>" ") and (PasswordEdit.Text <>" ") then / / поля НЕ пустые.Active:=false;.Parameters.ParamByName(&laquo;log&raquo;).Value:=LoginEdit.Text;.Active:=true;UserQuery.RecordCount&lt;&gt;0 thenUserQuery.FieldByName ("Пароль"). AsString=PasswordEdit.Text then begin:=LowerCase (LoginEdit.Text); UserQuery.FieldByName ("Доступ"). AsString=«True» then Dostup:=true / / є доступDostup:=false;;

endShowmessage («Неправильний логін або пароль!"); else ShowMessage («Неправильний логін або пароль!");

end

else ShowMessage («Введіть ім'я користувача та пароль!") ;/ / п...