ghsxx.pas

药品进销存系统 delphi V6开发,入门级参考源代码

unit ghsxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Buttons, ToolWin, Grids, DBGrids, StdCtrls, Db, DBTables;

type
  Tfrmghsxx = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit_dz: TEdit;
    Edit_mc: TEdit;
    Edit_dwbm: TEdit;
    Edit_dh: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit_lxr: TEdit;
    Label1: TLabel;
    Label6: TLabel;
    Edit_yhzh: TEdit;
    Label7: TLabel;
    Edit_bm: TEdit;
    Query_ghs: TQuery;
    DataSource_ghs: TDataSource;
    Query_bhb: TQuery;
    Database: TDatabase;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Edit_bmChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmghsxx: Tfrmghsxx;

implementation




{$R *.DFM}

procedure Tfrmghsxx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tfrmghsxx.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      Key:=#0;
      PostMessage(Handle,WM_NEXTDLGCTL,0,0);
    end;
end;

procedure Tfrmghsxx.BitBtn1Click(Sender: TObject);
  var lsh:integer;
     ghsbh:string;
begin
  if bitbtn1.Caption='&A添加' then
    begin
      bitbtn1.Caption:='&Y确定';
      Edit_mc.Clear;
      Edit_dwbm.Clear;
      Edit_lxr.Clear;
      Edit_dz.Clear;
      Edit_dh.Clear;
      Edit_yhzh.Clear;
      bitbtn2.Enabled:=false;
    end
  else if  bitbtn1.Caption='&Y确定' then
    if (Edit_mc.Text='') or (Edit_dwbm.text='') then
      begin
        Application.MessageBox('请将供货商名称和单位编码填写完整','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    else
      begin
        Query_bhb.close;
        Query_bhb.UnPrepare;
        Query_bhb.sql.Clear;
        Query_bhb.sql.Add('select * from bhb');
        Query_bhb.Prepare;
        Query_bhb.open;
        lsh:=Query_bhb.fieldbyname('ghsbh').asinteger;
        inc(lsh);
        Fmtstr(ghsbh,'%.4d',[lsh]);
        Query_ghs.Edit;
        Query_ghs.Append;
        Query_ghs.FieldByName('ghs_bh').asstring:=ghsbh;
        Query_ghs.FieldByName('ghs_bm').asstring:=Trim(Edit_dwbm.Text);
        Query_ghs.FieldByName('ghs_mc').asstring:=Trim(Edit_mc.Text);
        Query_ghs.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
        Query_ghs.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
        Query_ghs.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
        Query_ghs.FieldByName('yhzh').asstring:=Trim(Edit_yhzh.Text);
        Query_bhb.Edit;
        Query_bhb.fieldbyname('ghsbh').asinteger:=lsh;
        Try
          Database.StartTransaction;
          Query_ghs.Post;
          Query_bhb.Post;
          Database.Commit;
          bitbtn1.Caption:='&I添加';
          bitbtn2.Enabled:=True;
        Except
          Database.Rollback;
          Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
          exit;
        end
      end
end;

procedure Tfrmghsxx.BitBtn2Click(Sender: TObject);
begin
if bitbtn2.Caption='更改属性' then
    begin
      bitbtn2.Caption:='确认更改';
      bitbtn1.Enabled:=False;
    end
  else if (Edit_mc.Text='') or (Edit_dwbm.text='')  then
    begin
      Application.MessageBox('请填写供货商名称和供货商编码','提示', MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
      Query_ghs.Edit;
      Query_ghs.FieldByName('ghs_bm').asstring:=Trim(Edit_dwbm.Text);
      Query_ghs.FieldByName('ghs_mc').asstring:=Trim(Edit_mc.Text);
      Query_ghs.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
      Query_ghs.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
      Query_ghs.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
      Try
        Database.StartTransaction;
        Query_ghs.Post;
        Database.Commit;
        bitbtn1.Enabled:=true;
        bitbtn2.Caption:='更改属性';
      Except
        Database.Rollback;
        Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    end;
end;

procedure Tfrmghsxx.BitBtn3Click(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrmghsxx.FormCreate(Sender: TObject);
begin
  Query_ghs.close;
  Query_ghs.UnPrepare;
  Query_ghs.sql.Clear;
  Query_ghs.sql.Add('select * from ghsxxb');
  Query_ghs.Prepare;
  Query_ghs.open;
end;

procedure Tfrmghsxx.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn2.Caption='确认更改' then
    begin
      Edit_mc.Text:=Query_ghs.fieldbyname('ghs_mc').asstring;
      Edit_dwbm.Text:=Query_ghs.fieldbyname('ghs_bm').asstring;
      Edit_dz.Text:=Query_ghs.fieldbyname('dz').asstring;
      Edit_dh.Text:=Query_ghs.fieldbyname('dh').asstring;
      Edit_yhzh.Text:=Query_ghs.fieldbyname('yhzh').asstring;
      Edit_lxr.Text:=Query_ghs.fieldbyname('lxr').asstring;
    end;
end;

procedure Tfrmghsxx.Edit_bmChange(Sender: TObject);
begin
  Query_ghs.close;
  Query_ghs.UnPrepare;
  Query_ghs.sql.Clear;
  Query_ghs.sql.Add('select * from ghsxxb');
  Query_ghs.sql.Add(' where ghs_bm like '+''''+Edit_bm.text+'%'+'''');
  Query_ghs.Prepare;
  Query_ghs.open;
end;

end.