unit9.pas

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

unit Unit9;

interface

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

type
  Tcgjh_form = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Cmdadd: TButton;
    Query1: TQuery;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOConnection2: TADOConnection;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    Button2: TButton;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Edit4: TEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    procedure Edit1Change(Sender: TObject);
   // procedure CmdprtClick(Sender: TObject);
    procedure CmdaddClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cgjh_form: Tcgjh_form;

implementation

{$R *.dfm}

procedure Tcgjh_form.Edit1Change(Sender: TObject);

  Var SqlStr:string;
begin
  With ADOQuery1  do
     begin
       close;
      ADOQuery1.Sql.Clear;
       SqlStr:='Select * from 图书信息 Where 名称='+''''+Edit1.Text+'''';
       ADOQuery1.Sql.Add(SqlStr);
       Open;

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

   end;
//procedure Tcgjh_form.CmdprtClick(Sender: TObject);
//begin
  //  RichEdit1.Print('采购计划');
//end;

procedure Tcgjh_form.CmdaddClick(Sender: TObject);
var bh,xx,sl:string;
begin
   with ADOTable1 do
       begin
       Open;
       //Edit4.Field .asinteger=DBEdit1.Field .asinteger+Edit3.Field .asinteger ;
       bh:=Edit2.text;
       sl:=Edit4.text;
       xx:=DBEdit2.Text ;

       append;
       SetFields([bh,sl,xx]);
       application.MessageBox('添加成功，请去库存管理删除过期信息；若要添加下一项内容，请按“清空”按钮继续！','',MB_OK);
       Post;
       end;
end;


procedure Tcgjh_form.Button2Click(Sender: TObject);
begin
   Edit1.SelectAll;
   Edit2.SelectAll;
   Edit3.SelectAll;
   Edit4.SelectAll;
   DBEdit1.SelectAll;
   DBEdit2.SelectAll;

   Edit1.ClearSelection;
   Edit2.ClearSelection;
   Edit3.ClearSelection;
   Edit4.ClearSelection;
   DBEdit1.ClearSelection;
   DBEdit2.ClearSelection;



end;

procedure Tcgjh_form.Edit4Change(Sender: TObject);
begin
    //if Trim(Edit3.text)<>''then
    //begin
    //Edit4..AsInteger=DBEdit1.Text.AsInteger+Edit3.Text.AsInteger ;
    //end;
    end;
end.