Разработка информационной системы в учете лекарственных средств

DataModule2.ADOQuery1.SQL.Add('FROM Поставщики INNER JOIN (Склад INNER JOIN Лекарства ON Склад.[Ключ]=Лекарства.[Ключ]) ON Поставщики.[Код поставщика]=Склад.[Код поставщика]');

DataModule2.ADOQuery1.SQL.Add('WHERE Поставщики.[Код поставщика] LIKE '''+Edit2.Text+'''');

DataModule2.ADOQuery1.Active:=true;

Form10.ShowModal;

end;

procedure TForm1.DBLookupComboBox1Click(Sender: TObject);

begin

DataModule2.ADOQuery3.Active:=false;

DataModule2.ADOQuery3.SQL.Clear;

DataModule2.ADOQuery3.SQL.Add('Select Лекарства.[Ключ], Лекарства.[Цена]');

DataModule2.ADOQuery3.SQL.Add('FROM Лекарства');

DataModule2.ADOQuery3.SQL.Add('WHERE Лекарства.[Ключ] LIKE '''+DBEdit6.Text+'''');

DataModule2.ADOQuery3.Open;

DBEdit3.Text:=DataModule2.ADOQuery3.FieldValues['Цена'];

DataModule2.ADOQuery3.Active:=True;

DataModule2.ADOTable6.Refresh;

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule2 = class(TDataModule)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable2: TADOTable;

DataSource2: TDataSource;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1DSDesigner3: TWideStringField;

ADOTable1DSDesigner5: TDateTimeField;

ADOTable1DSDesigner6: TBCDField;

ADOTable2DSDesigner: TAutoIncField;

ADOTable2DSDesigner2: TDateTimeField;

ADOTable2DSDesigner3: TWideStringField;

ADOTable2DSDesigner4: TWideStringField;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

DataSource3: TDataSource;

DataSource4: TDataSource;

DataSource5: TDataSource;

ADOTable1DSDesigner2: TWideStringField;

ADOTable2DSDesigner6: TIntegerField;

ADOTable3DSDesigner: TWideStringField;

ADOTable3DSDesigner2: TWideStringField;

ADOTable3DSDesigner3: TWideStringField;

ADOTable3DSDesigner4: TWideStringField;

ADOTable3DSDesigner5: TWideStringField;

ADOTable4DSDesigner: TAutoIncField;

ADOTable4DSDesigner2: TWideStringField;

ADOTable5DSDesigner: TAutoIncField;

ADOTable5DSDesigner2: TWideStringField;

ADOTable6: TADOTable;

DataSource6: TDataSource;

ADOTable6DSDesigner: TAutoIncField;

ADOTable6DSDesigner2: TDateTimeField;

ADOTable6DSDesigner3: TIntegerField;

ADOTable6DSDesigner5: TWideStringField;

ADOTable6DSDesigner6: TBCDField;

ADOTable6Field: TIntegerField;

ADOQuery1: TADOQuery;

DataSource7: TDataSource;

ADOTable2_: TWideStringField;

ADOQuery2: TADOQuery;

DataSource8: TDataSource;

ADOQuery3: TADOQuery;

DataSource9: TDataSource;

ADOQuery4: TADOQuery;

procedure ADOTable6CalcFields(DataSet: TDataSet);

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.

Размещено на Allbest.ru