khxx.pas

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

unit khxx;

interface

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

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

var
  frmkhxx: Tfrmkhxx;

implementation



{$R *.DFM}

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

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

procedure Tfrmkhxx.FormCreate(Sender: TObject);
begin
  Query_khxx.close;
  Query_khxx.UnPrepare;
  Query_khxx.sql.Clear;
  Query_khxx.sql.Add('select * from khxxb');
  Query_khxx.Prepare;
  Query_khxx.open;
end;

procedure Tfrmkhxx.bm_EditChange(Sender: TObject);
begin
  Query_khxx.close;
  Query_khxx.UnPrepare;
  Query_khxx.sql.Clear;
  Query_khxx.sql.Add('select * from khxxb');
  Query_khxx.sql.Add(' where kh_bm like'+''''+bm_edit.Text+'%'+'''');
  Query_khxx.Prepare;
  Query_khxx.open;
end;

procedure Tfrmkhxx.BitBtn3Click(Sender: TObject);
 var lsh:integer;
     khbh:string;
begin
  if bitbtn3.Caption='&A添加' then
    begin
      bitbtn3.Caption:='&Y确定';
      Edit_mc.Clear;
      Edit_dwbm.Clear;
      Edit_lxr.Clear;
      Edit_dz.Clear;
      Edit_dh.Clear;
      bitbtn2.Enabled:=false;
    end
  else if  bitbtn3.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('khbh').asinteger;
        inc(lsh);
        Fmtstr(khbh,'%.4d',[lsh]);
        Query_khxx.Edit;
        Query_khxx.Append;
        Query_khxx.FieldByName('kh_bh').asstring:=khbh;
        Query_khxx.FieldByName('kh_bm').asstring:=Trim(Edit_dwbm.Text);
        Query_khxx.FieldByName('kh_mc').asstring:=Trim(Edit_mc.Text);
        Query_khxx.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
        Query_khxx.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
        Query_khxx.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
        Query_bhb.Edit;
        Query_bhb.fieldbyname('khbh').asinteger:=lsh;
        Try
          Database.StartTransaction;
          Query_khxx.Post;
          Query_bhb.Post;
          Database.Commit;
          bitbtn3.Caption:='&A添加';
          bitbtn2.Enabled:=True;
        Except
          Database.Rollback;
          Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
          exit;
        end
      end

end;

procedure Tfrmkhxx.BitBtn2Click(Sender: TObject);
begin
if bitbtn2.Caption='更改属性' then
    begin
      bitbtn2.Caption:='确认更改';
      bitbtn3.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_khxx.Edit;
      Query_khxx.FieldByName('kh_bm').asstring:=Trim(Edit_dwbm.Text);
      Query_khxx.FieldByName('kh_mc').asstring:=Trim(Edit_mc.Text);
      Query_khxx.FieldByName('dz').asstring:=Trim(Edit_dz.Text);
      Query_khxx.FieldByName('dh').asstring:=Trim(Edit_dh.Text);
      Query_khxx.FieldByName('lxr').asstring:=Trim(Edit_lxr.Text);
      Try
        Database.StartTransaction;
        Query_khxx.Post;
        Database.Commit;
        bitbtn3.Enabled:=true;
        bitbtn2.Caption:='更改属性';
      Except
        Database.Rollback;
        Application.MessageBox('信息提交错误','提示', MB_OK+MB_ICONINFORMATION);
        exit;
      end
    end;
end;

procedure Tfrmkhxx.BitBtn1Click(Sender: TObject);
begin
  Self.Close;
end;

procedure Tfrmkhxx.DBGrid1CellClick(Column: TColumn);
begin
  if bitbtn2.Caption='确认更改' then
    begin
      Edit_mc.Text:=Query_khxx.fieldbyname('kh_mc').asstring;
      Edit_dwbm.Text:=Query_khxx.fieldbyname('kh_bm').asstring;
      Edit_dz.Text:=Query_khxx.fieldbyname('dz').asstring;
      Edit_dh.Text:=Query_khxx.fieldbyname('dh').asstring;
      Edit_lxr.Text:=Query_khxx.fieldbyname('lxr').asstring;
    end;
end;

end.