bmxx.pas

药品进销存管理系统(Delphi版),适合中小企业管理

unit bmxx;

interface

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

type
  Tfrmbmxx = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label6: TLabel;
    Edit_mc: TEdit;
    Edit_fzr: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource_bm: TDataSource;
    Query_bm: TQuery;
    Query_bhb: TQuery;
    Database: TDatabase;
    btnDel: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btnDelClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  frmbmxx: Tfrmbmxx;

implementation




{$R *.DFM}

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

procedure Tfrmbmxx.BitBtn1Click(Sender: TObject);
  var lsh:integer;
      bmbh:string;
begin
  if bitbtn1.Caption='&A添加' then
    begin
      bitbtn1.Caption:='&Y确定';
      Edit_mc.Clear;
      Edit_fzr.Clear;
      edit_mc.setfocus;
      bitbtn2.Enabled:=false;
      btnDel.Enabled:=false;
    end
  else if  bitbtn1.Caption='&Y确定' then
    if Edit_mc.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('bmbh').asinteger;
        inc(lsh);
        Fmtstr(bmbh,'%.2d',[lsh]);
        //Query_bm.Edit;
        Query_bm.Append;
        Query_bm.FieldByName('bm_bh').asstring:=bmbh;
        Query_bm.FieldByName('bm_mc').asstring:=Trim(Edit_mc.Text);
        Query_bm.FieldByName('fzr').asstring:=Trim(Edit_fzr.Text);
        Query_bhb.Edit;
        Query_bhb.fieldbyname('bmbh').asinteger:=lsh;
        Try
          Database.StartTransaction;
          Query_bm.Post;
          Query_bhb.Post;
          Database.Commit;
          bitbtn1.Caption:='&I添加';
          formcreate(self);
          bitbtn2.Enabled:=True;
          btnDel.Enabled:=true;
        Except
          Database.Rollback;
          Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
          exit;
        end
      end
end;

procedure Tfrmbmxx.BitBtn2Click(Sender: TObject);
begin
if bitbtn2.Caption='更改属性' then
    begin
      bitbtn2.Caption:='确认更改';
      bitbtn1.Enabled:=False;
    end
  else if Edit_mc.Text=''  then
    begin
      Application.MessageBox('请填写部门名称','提示', MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
      Query_bm.Edit;
      Query_bm.FieldByName('bm_mc').asstring:=Trim(Edit_mc.Text);
      Query_bm.FieldByName('fzr').asstring:=Trim(Edit_fzr.Text);
      Try
        Database.StartTransaction;
        Query_bm.Post;
        Database.Commit;
        bitbtn1.Enabled:=true;
        bitbtn2.Caption:='更改属性';
      Except
        Database.Rollback;
        Application.MessageBox('部门信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    end;
end;

procedure Tfrmbmxx.FormCreate(Sender: TObject);
begin
  Query_bm.close;
  Query_bm.UnPrepare;
  Query_bm.sql.Clear;
  Query_bm.sql.Add('select * from bmb');
  Query_bm.Prepare;
  Query_bm.open;
end;

procedure Tfrmbmxx.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn2.Caption='确认更改' then
    begin
      Edit_mc.Text:=Query_bm.fieldbyname('bm_mc').asstring;
      Edit_fzr.Text:=Query_bm.fieldbyname('fzr').asstring;
    end;
end;

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

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

procedure Tfrmbmxx.btnDelClick(Sender: TObject);
begin
  with query_bm do begin
    if bof and eof then exit;
    if application.MessageBox('确定要删除此条记录吗？','询问',mb_okcancel+mb_iconquestion)=id_ok then
       delete;
  end;     
end;

end.