📄 wzck.pas

📁 药品进销存管理系统(Delphi版),适合中小企业管理
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit wzck;

interface

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

type
  TFrmwzck = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox1: TComboBox;
    Shape1: TShape;
    Label3: TLabel;
    Edit_ghdw: TEdit;
    SpeedButton5: TSpeedButton;
    ComboBox_bm: TComboBox;
    ComboBox_ywy: TComboBox;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    Label5: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label11: TLabel;
    Edit_bm: TEdit;
    Edit_sl: TEdit;
    BitBtn4: TBitBtn;
    Edit_dj: TEdit;
    Edit_hsj: TEdit;
    DBGrid1: TDBGrid;
    DataSource_tmp: TDataSource;
    tmp_Table: TTable;
    tmp_Query: TQuery;
    Query_sum: TQuery;
    Query_ckd: TQuery;
    Query_ywy: TQuery;
    Query_ywyywy_bh: TStringField;
    Query_ywyywy_xm: TStringField;
    Query_ywyxb: TStringField;
    Query_ywynl: TStringField;
    Query_ywybm_bh: TStringField;
    Query_ywybm_mc: TStringField;
    Query_xs: TQuery;
    Query_bm: TQuery;
    Query_ckxx: TQuery;
    DataSource_kc: TDataSource;
    Query_kc: TQuery;
    Database: TDatabase;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label_ckdh: TLabel;
    Label9: TLabel;
    Label_zdr: TLabel;
    Label10: TLabel;
    Label_zje: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure Edit_bmChange(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit_slKeyPress(Sender: TObject; var Key: Char);
    procedure Edit_djKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox_bmExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Query_kcAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmwzck: TFrmwzck;
  table_name:array[0..25] of string;
  bm_bh:array[0..25] of string;
  jetotal:real;

implementation

uses main, kh, repxs;

{$R *.DFM}

procedure TFrmwzck.FormCreate(Sender: TObject);
 var   i:integer;
begin
   DateTimePicker2.Date:=Frmmain.GetServerTime;
   i:=0;
   Query_xs.close;
   Query_xs.UnPrepare;
   Query_xs.sql.Clear;
   Query_xs.sql.Add('select * from xsxxb');
   Query_xs.Prepare;
   Query_xs.open;
   Query_bm.close;
   Query_bm.UnPrepare;
   Query_bm.sql.Clear;
   Query_bm.sql.Add('select * from bmb');
   Query_bm.Prepare;
   Query_bm.open;
   Query_bm.First;
   while not Query_bm.Eof do
    begin
     combobox_bm.Items.Add(Query_bm.fieldbyname('bm_mc').asstring);
     bm_bh[i]:=Query_bm.fieldbyname('bm_bh').asstring;
     inc(i);
     Query_bm.Next;
    end;
   i:=0;
   Query_ckxx.close;
   Query_ckxx.UnPrepare;
   Query_ckxx.sql.Clear;
   Query_ckxx.sql.Add('select * from ckxxb');
   Query_ckxx.Prepare;
   Query_ckxx.open;
   while not Query_ckxx.Eof do
    begin
     combobox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     table_name[i]:=Query_ckxx.fieldbyname('bm').asString;
   //  ck_bh[i]:=Query_ckxx.fieldbyname('ck_bh').asString;
     inc(i);
     Query_ckxx.Next;
    end;
   combobox1.ItemIndex:=0;
   combobox1.OnChange(Self);
end;

procedure TFrmwzck.SpeedButton5Click(Sender: TObject);
begin
  Frmkh:=TFrmkh.create(Self);
  Frmmain.pubedit:=Edit_ghdw;
  Frmkh.ShowModal;
end;

procedure TFrmwzck.Edit_bmChange(Sender: TObject);
begin
   Query_kc.DisableControls;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   if pos('中药',ComboBox1.text)>0 then
     Query_kc.sql.Add('select cd,pm,dw,gg,kcs,dj,ph,jhrq,jgdw,ck_bh,wp_bm,bh,jj from '+table_name[combobox1.itemindex])
   else
     Query_kc.sql.Add('select cd,pm,dw,gg,kcs,dj,bz,ph,jhrq,pzwh,sb,yxq,ck_bh,wp_bm,bh,jj from '+table_name[combobox1.itemindex]);
   Query_kc.sql.Add(' where wp_bm like '+''''+Edit_bm.Text+'%'+'''');
   Query_kc.sql.Add(' ORDER BY pm,jhrq');
   Query_kc.Prepare;
   Query_kc.open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('bh').DisplayLabel:='编号';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('dj').DisplayLabel:='单价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',combobox1.text)>0 then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.EnableControls;
end;

procedure TFrmwzck.ComboBox1Change(Sender: TObject);
begin
   Query_kc.DisableControls;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   if pos('中药',ComboBox1.text)>0 then
     Query_kc.sql.Add('select cd,pm,dw,gg,kcs,dj,ph,jhrq,jgdw,ck_bh,wp_bm,bh,jj from '+table_name[combobox1.itemindex])
   else
     Query_kc.sql.Add('select cd,pm,dw,gg,kcs,dj,bz,ph,jhrq,pzwh,sb,yxq,ck_bh,wp_bm,bh,jj from '+table_name[combobox1.itemindex]);
   Query_kc.sql.Add(' ORDER BY pm,jhrq');
   Query_kc.Prepare;
   Query_kc.open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('bh').DisplayLabel:='编号';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('dj').DisplayLabel:='单价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',combobox1.text)>0 then
     Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位'
   else
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end;
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.EnableControls;
end;

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

procedure TFrmwzck.FormShow(Sender: TObject);
begin
  jetotal:=0.0;
  tmp_table.close;
  tmp_table.TableName:='tmpxs.db';
  if not tmp_table.Exists then
    begin
      tmp_table.FieldDefs.Add('pm',ftstring,20,false);
      tmp_table.FieldDefs.Add('cd',ftstring,20,false);
      tmp_table.FieldDefs.Add('gg',ftstring,10,false);
      tmp_table.FieldDefs.Add('dw',ftstring,4,false);
      tmp_table.FieldDefs.Add('dj',ftfloat);
      tmp_table.FieldDefs.Add('ph',ftstring,20,false);
      tmp_table.FieldDefs.Add('sl',ftfloat);
      tmp_table.FieldDefs.Add('je',ftfloat);
      tmp_table.FieldDefs.Add('yxq',ftfloat);
      tmp_table.FieldDefs.Add('sb',ftstring,10,false);
      tmp_table.FieldDefs.Add('pzwh',ftstring,30,false);
      tmp_table.FieldDefs.Add('js',ftfloat);
      tmp_table.FieldDefs.Add('ck_bh',ftstring,1,true);
      tmp_table.CreateTable;
    end
  else tmp_table.EmptyTable;
  tmp_table.open;
  tmp_table.FieldByName('pm').DisplayLabel:='物品名称';
  tmp_table.FieldByName('cd').DisplayLabel:='产地';
  tmp_table.FieldByName('sl').DisplayLabel:='数量';
  tmp_table.FieldByName('gg').DisplayLabel:='规格';
  tmp_table.FieldByName('ph').DisplayLabel:='批号';
  tmp_table.FieldByName('dw').DisplayLabel:='单位';
  tmp_table.FieldByName('dj').DisplayLabel:='单价';
  tmp_table.FieldByName('je').DisplayLabel:='金额';
  tmp_table.FieldByName('sb').DisplayLabel:='商标';
  tmp_table.FieldByName('pzwh').DisplayLabel:='批准文号';
  tmp_table.FieldByName('yxq').DisplayLabel:='有效期';
  tmp_table.FieldByName('js').DisplayLabel:='件数';
  tmp_table.FieldByName('ck_bh').displaylabel:='仓库编号';
  Label_ckdh.Caption:=formatdatetime('yyyymmddhhmmss',Frmmain.GetServerTime);
  Label_zdr.Caption:=Frmmain.name;
  Label_zje.Caption:='0.00';
  bitbtn2.Enabled:=false;
end;

procedure TFrmwzck.BitBtn4Click(Sender: TObject);
  var r,sl,kcs,dj:real;
    ypbh:string;
begin
if ( not Query_kc.Eof) or ( not Query_kc.Bof) then
  begin
   ypbh:=Query_kc.FieldByName('bh').asstring;
   dj:=Strtofloat(Edit_dj.text);
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -