unit5.pas

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

unit Unit5;

interface

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

type
  Taddgwc_form = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    cmdok: TButton;
    cmdclose: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  addgwc_form: Taddgwc_form;

implementation

{$R *.dfm}

procedure Taddgwc_form.cmdokClick(Sender: TObject);


  var bh,mc:string;
begin
   with ADOTable1 do
       begin
       Open;
       bh:=Edit1.text;
       mc:=Edit2.text;


       append;
       SetFields([bh,mc,formatdatetime('dddddd',DatetimePicker1.Date),nil]);
       application.MessageBox('添加成功，请确认；若要添加下一项内容，请按“清空”按钮继续！','',MB_OK);
       Post;
       
       end;
end;

procedure Taddgwc_form.cmdcloseClick(Sender: TObject);
begin
    close

end;

procedure Taddgwc_form.Button1Click(Sender: TObject);

begin
   Edit1.SelectAll;
   Edit2.SelectAll;

   Edit1.ClearSelection;
   Edit2.ClearSelection;
   
end;



end.