sccj.pas

药店GSP源码

unit sccj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Buttons;

type
  TForm10 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Database1: TDatabase;
    Table1: TTable;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.BitBtn2Click(Sender: TObject);
begin
form10.Close;
end;

procedure TForm10.BitBtn1Click(Sender: TObject);
begin
Table1.Open;
table1.Append;
table1['name']:=edit1.Text;
table1['pinyin']:=edit2.Text;
if edit3.Text<>'' then
 begin
  table1['lxr']:=edit3.Text;
 end;
if edit4.Text<>'' then
 begin
  table1['phone']:=edit4.Text;
 end;
 table1.Post;
 table1.Refresh;
 Application.MessageBox('数据已经保存','数据保存',mb_ok);
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
end;

end.