wpcx.pas

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

unit wpcx;

interface

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

type
  TFrmwpcx = class(TForm)
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    wpbm_Edit: TEdit;
    pm_Edit: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Query_ckxx: TQuery;
    Query_kc: TQuery;
    DataSource_kc: TDataSource;
    Database: TDatabase;
    BitBtn3: TBitBtn;
    Label5: TLabel;
    Edit_ghs: TEdit;
    SpeedButton3: TSpeedButton;
    Query_zero: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmwpcx: TFrmwpcx;
  table_name:array[0..25] of string; //存放选择的仓库的表名cka---ckf

implementation

uses   main, ghs;


{$R *.DFM}

procedure TFrmwpcx.FormCreate(Sender: TObject);
  var i:integer;
begin
 if Frmmain.right='01' then bitbtn1.Enabled:=false;
 i:=0;
 Query_ckxx.close;
 Query_ckxx.sql.Clear;
 Query_ckxx.sql.Add('select * from ckxxb');
 Query_ckxx.open;
 Query_ckxx.First;
 while not Query_ckxx.Eof do
   begin
     listbox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     table_name[i]:=Query_ckxx.fieldbyName('bm').asString;
     inc(i);
     Query_ckxx.Next;
   end;
 listbox1.ItemIndex:=0;
 listbox1click(self);
end;

procedure TFrmwpcx.ListBox1Click(Sender: TObject);
begin
  if listbox1.Items[listbox1.ItemIndex]<>'中药库' then
    begin
      Query_kc.DisableControls;
      Query_kc.close;
      Query_kc.UnPrepare;
      Query_kc.sql.Clear;
      Query_kc.sql.Add('select pm,cd,dw,gg,kcs,ycs,bz,jj,dj,ph,kcxx,jhrq,scrq,yxq,sb,pzwh,lb,ghs_mc,ck_bh,wp_bm from '+table_name[listbox1.itemindex]);
      Query_kc.sql.Add(' order by pm');
      Query_kc.Prepare;
      Query_kc.open;
      Query_kc.EnableControls;
    end
  else
    begin
      Query_kc.DisableControls;
      Query_kc.close;
      Query_kc.UnPrepare;
      Query_kc.sql.Clear;
      Query_kc.sql.Add('select pm,cd,dw,gg,kcs,ycs,jj,dj,ph,jhrq,kcxx,jgdw,lb,ghs_mc,ck_bh,wp_bm from '+table_name[listbox1.itemindex]);
      Query_kc.sql.Add(' order by pm');
      Query_kc.Prepare;
      Query_kc.open;
      Query_kc.EnableControls;
    end;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('ycs').DisplayLabel:='进货数';
   Query_kc.FieldByName('kcxx').DisplayLabel:='库存下限';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('lb').DisplayLabel:='类别';
   Query_kc.FieldByName('dj').DisplayLabel:='售价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if listbox1.Items[listbox1.ItemIndex]='中药库' then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('scrq').DisplayLabel:='生产日期';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.FieldByName('ghs_mc').DisplayLabel:='供货商名称';
end;

procedure TFrmwpcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=CaFree;
end;

procedure TFrmwpcx.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmwpcx.BitBtn1Click(Sender: TObject);
begin
  if Query_kc.FieldByName('kcs').asfloat<>0 then
    begin
      Application.MessageBox('库存数有为0不能删除','提示',MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
      query_zero.close;
      query_zero.UnPrepare;
      query_zero.sql.Clear;
      query_zero.sql.Add('select * from zero');
      query_zero.Prepare;
      query_zero.open;
      query_zero.Append;
      query_zero.FieldByName('bh').asstring:=formatdatetime('yyyymmddhhmmss',now);
      query_zero.FieldByName('pm').asstring:=query_kc.fieldbyname('pm').asstring;
      query_zero.FieldByName('cd').asstring:=query_kc.fieldbyname('cd').asstring;
      query_zero.FieldByName('dw').asstring:=query_kc.fieldbyname('dw').asstring;
      query_zero.FieldByName('gg').asstring:=query_kc.fieldbyname('gg').asstring;
      query_zero.FieldByName('jj').asstring:=query_kc.fieldbyname('jj').asstring;
      query_zero.FieldByName('ycs').asstring:=query_kc.fieldbyname('ycs').asstring;
      query_zero.FieldByName('dj').asstring:=query_kc.fieldbyname('dj').asstring;
      query_zero.FieldByName('ph').asstring:=query_kc.fieldbyname('ph').asstring;
      query_zero.FieldByName('ghs_mc').asstring:=query_kc.fieldbyname('ghs_mc').asstring;
      query_zero.FieldByName('lb').asstring:=query_kc.fieldbyname('lb').asstring;
      query_zero.FieldByName('ck_bh').asstring:=query_kc.fieldbyname('ck_bh').asstring;
      query_zero.FieldByName('jhrq').asstring:=query_kc.fieldbyname('jhrq').asstring;
      query_zero.FieldByName('wp_bm').asstring:=query_kc.fieldbyname('wp_bm').asstring;
      try
         database.StartTransaction;
         Query_zero.Post;
         database.Commit;
       except
         database.Rollback;
         Application.MessageBox('信息提交错误','提示',MB_OK+MB_ICONINFORMATION);
         exit;
       end;
      Query_kc.Delete;
    end;
end;

procedure TFrmwpcx.BitBtn3Click(Sender: TObject);
begin
 if listbox1.Items[listbox1.ItemIndex]<>'中药库' then
    begin
      Query_kc.close;
      Query_kc.UnPrepare;
      Query_kc.sql.Clear;
      Query_kc.sql.Add('select pm,cd,dw,gg,kcs,ycs,bz,jj,dj,ph,kcxx,jhrq,scrq,ghs_mc,yxq,sb,pzwh,lb,ck_bh,wp_bm from '+table_name[listbox1.itemindex]);
      if wpbm_edit.Text<>'' then
        Query_kc.sql.Add(' where wp_bm like'+''''+wpbm_edit.Text+'%'+'''');
      if (wpbm_edit.text<>'') and (pm_edit.Text<>'') then
        Query_kc.sql.Add(' and pm like'+''''+'%'+pm_edit.Text+'%'+'''')
      else if pm_edit.Text<>'' then
        Query_kc.sql.Add(' where pm like'+''''+'%'+pm_edit.Text+'%'+'''');
      if ((wpbm_edit.text<>'') or (pm_edit.Text<>'')) and (edit_ghs.Text<>'') then
        Query_kc.sql.Add(' and ghs_mc like'+''''+'%'+edit_ghs.Text+'%'+'''')
      else if Edit_ghs.Text<>'' then
        Query_kc.sql.Add(' where ghs_mc like'+''''+'%'+edit_ghs.Text+'%'+'''');
      Query_kc.sql.Add(' order by pm');
      Query_kc.Prepare;
      Query_kc.open;
    end
  else
    begin
      Query_kc.close;
      Query_kc.UnPrepare;
      Query_kc.sql.Clear;
      Query_kc.sql.Add('select pm,cd,dw,gg,kcs,ycs,jj,dj,ph,ghs_mc,jhrq,kcxx,jgdw,lb,ck_bh,wp_bm from '+table_name[listbox1.itemindex]);
      if wpbm_edit.Text<>'' then
        Query_kc.sql.Add(' where wp_bm like'+''''+wpbm_edit.Text+'%'+'''');
      if (wpbm_edit.text<>'') and (pm_edit.Text<>'') then
        Query_kc.sql.Add(' and pm like'+''''+'%'+pm_edit.Text+'%'+'''')
      else if pm_edit.Text<>'' then
        Query_kc.sql.Add(' where pm like'+''''+'%'+pm_edit.Text+'%'+'''');
      if ((wpbm_edit.text<>'') or (pm_edit.Text<>'')) and (edit_ghs.Text<>'') then
        Query_kc.sql.Add(' and ghs_mc like'+''''+'%'+edit_ghs.Text+'%'+'''')
      else if Edit_ghs.Text<>'' then
        Query_kc.sql.Add(' where ghs_mc like'+''''+'%'+edit_ghs.Text+'%'+'''');
      Query_kc.sql.Add(' order by pm');
      Query_kc.Prepare;
      Query_kc.open;
    end;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('ycs').DisplayLabel:='进货数';
   Query_kc.FieldByName('kcxx').DisplayLabel:='库存下限';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('lb').DisplayLabel:='类别';
   Query_kc.FieldByName('dj').DisplayLabel:='售价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if listbox1.Items[listbox1.ItemIndex]='中药库' then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('scrq').DisplayLabel:='生产日期';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.FieldByName('ghs_mc').DisplayLabel:='供货商名称';
end;

procedure TFrmwpcx.SpeedButton3Click(Sender: TObject);
begin
  Frmghs:=TFrmghs.create(Self);
  Frmmain.pubedit:=Edit_ghs;
  Frmghs.ShowModal;
end;

end.