unit10.pas

药房管理程序实现药房的基本管理功能

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Menus, StdCtrls, Grids, DBGrids, ExtCtrls, ADODB,
  Mask, DBCtrls, ComCtrls;

type
  Txsgl_form = class(TForm)
    Form8: TPanel;
    cmdok: TButton;
    Cmdclose: TButton;
    Panel2: TPanel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    Edit1: TEdit;
    cmdr: TButton;
    cmdl: TButton;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    ADOTable2: TADOTable;
    ADOConnection2: TADOConnection;
    Label1: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ADOTable3: TADOTable;
    ADOConnection3: TADOConnection;
    DataSource3: TDataSource;
    Query1: TQuery;
    ADOQuery2: TADOQuery;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    procedure Edit2Change(Sender: TObject);
    procedure cmdrClick(Sender: TObject);
    procedure cmdlClick(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure CmdcloseClick(Sender: TObject);
   // procedure DBEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsgl_form: Txsgl_form;

implementation

uses Unit11;

{$R *.dfm}

procedure Txsgl_form.Edit2Change(Sender: TObject);
 Var SqlStr:string;
begin
  With ADOQuery2  do
     begin
       close;
       ADOQuery2.Sql.Clear;
       SqlStr:='Select * from 购物车记录 Where 客户名='+''''+Edit2.Text+'''';
       ADOQuery2.Sql.Add(SqlStr);
       Open;


       Edit3.Text:=Fieldbyname('编号').asstring;

     end;
  end;

procedure Txsgl_form.cmdrClick(Sender: TObject);
   var bh,ybh,sl,sj:string;
begin

 with ADOTable2 do
       begin
       Open;
       bh:=Edit3.text;
       sj:= DBEdit2.text;
       ybh:=DBEdit1.text;
       sl:=Edit1.text;
       append;
       SetFields([bh,formatdatetime('',DatetimePicker1.Date),ybh,sl,sj]);
       ADOTable2.Post 
       end;

  end;

procedure Txsgl_form.cmdlClick(Sender: TObject);
begin
  begin
   ADOTable2.edit;
   ADOTable2.delete;
end;

end;

procedure Txsgl_form.cmdokClick(Sender: TObject);
begin
 jsgl_form.ShowModal;
end;

procedure Txsgl_form.CmdcloseClick(Sender: TObject);
begin
close;
end;

end.