Учет лекарственных средств

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DataModule2: TDataModule2;

 

implementation

 

uses Unit9;

 

{$R *.dfm}

 

procedure TDataModule2.ADOTable6CalcFields(DataSet: TDataSet);

begin

DataModule2.ADOTable6Field.Value:=DataModule2.ADOTable6DSDesigner6.AsInteger*DataModule2.ADOTable6DSDesigner3.AsInteger;

end;

 

end.

 

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, ExtCtrls;

 

type

  TForm3 = class(TForm)

    DBEdit1: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    DBEdit2: TDBEdit;

    BitBtn1: TBitBtn;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBEdit7: TDBEdit;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    DBLookupComboBox2: TDBLookupComboBox;

    Image1: TImage;

    Label10: TLabel;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses Unit2, Unit1;

 

{$R *.dfm}

 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

if DataModule2.ADOTable2.Modified then

DataModule2.ADOTable2.Post;

Close;

end;

 

end.

 

 

unit Unit4;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, Menus, StdCtrls;

 

type

  TForm4 = class(TForm)

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

uses Unit2, Unit5, Unit1, Unit3;

 

{$R *.dfm}

 

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if DataModule2.ADOTable3.Modified then

DataModule2.ADOTable3.Post;

end;

 

procedure TForm4.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable3.Edit;

DataModule2.ADOTable3.Insert;

Form5.Show;

end;

 

procedure TForm4.Button2Click(Sender: TObject);

begin

Form5.Show;

end;

 

procedure TForm4.Button3Click(Sender: TObject);

begin

if Application.MessageBox(PChar('Ты действительно хочешь удалить '

+DataModule2.ADOTable3DSDesigner.AsString), 'Внимание!!!',

MB_OKCANCEL)=id_OK then

DataModule2.ADOTable3.Delete;

end;

 

procedure TForm4.Button4Click(Sender: TObject);

begin

Form4.Close;

end;

 

end.

 

 

unit Unit5;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBCtrls, StdCtrls, Mask;

 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    DBEdit1: TDBEdit;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBLookupComboBox1: TDBLookupComboBox;

    Button1: TButton;

    DBComboBox1: TDBComboBox;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation

 

uses Unit2, Unit1, Unit4, Unit3;

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable3.Post;

Form5.Close;

end;

 

end.

unit Unit6;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, StdCtrls, Buttons;

 

type

  TForm6 = class(TForm)

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

 

uses Unit1, Unit2;

 

{$R *.dfm}

 

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if DataModule2.ADOTable4.Modified then

DataModule2.ADOTable4.Post;

end;

 

procedure TForm6.Button1Click(Sender: TObject);

begin

Form6.Close;

end;

 

procedure TForm6.Button2Click(Sender: TObject);

begin

DataModule2.ADOTable4.Edit;

DataModule2.ADOTable4.Insert;

end;

 

end.

 

 

unit Unit7;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, DBGrids;

 

type

  TForm7 = class(TForm)

    DBGrid1: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form7: TForm7;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

procedure TForm7.Button2Click(Sender: TObject);

begin

Form7.Close;

end;

 

procedure TForm7.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable5.Edit;

DataModule2.ADOTable5.Insert;

end;

 

end.

 

 

unit Unit8;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

 

type

  TForm8 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form8: TForm8;

 

implementation

 

{$R *.dfm}

 

end.

 

 

unit Unit9;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, StdCtrls, Buttons, RpRave, RpDefine, RpCon,

  RpConDS, DB, ADODB, ComCtrls;

 

type

  TForm9 = class(TForm)

    DBGrid1: TDBGrid;

    BitBtn1: TBitBtn;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form9: TForm9;

 

implementation

 

uses Unit2, Unit1;

 

{$R *.dfm}

 

procedure TForm9.FormCreate(Sender: TObject);

begin

if DataModule2.ADOTable6.Modified then

DataModule2.ADOTable6.Post;

end;

 

end.

unit Unit10;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids;

 

type

  TForm10 = class(TForm)

    DBGrid1: TDBGrid;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form10: TForm10;

 

implementation

 

uses Unit2;

 

{$R *.dfm}

 

end.