input.pas

本系统前端界面采用WINDOWS 窗口风格

unit input;

interface

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

type
  TFrminput = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label4: TLabel;
    wp_bm_edit: TEdit;
    mc_edit: TEdit;
    gg_edit: TEdit;
    dw_edit: TEdit;
    lb_edit: TEdit;
    jj_edit: TEdit;
    dj_edit: TEdit;
    sl_edit: TEdit;
    yxq_edit: TEdit;
    kcxx_edit: TEdit;
    sb_edit: TEdit;
    ph_edit: TEdit;
    pzwh_edit: TEdit;
    cd_edit: TEdit;
    jgdw_edit: TEdit;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label21: TLabel;
    bz_Edit: TEdit;
    ListBox1: TListBox;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    bm_Edit: TEdit;
    Label15: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label22: TLabel;
    Edit_jl: TEdit;
    MaskEdit1: TMaskEdit;
    Query_ckxx: TQuery;
    DataSource_kc: TDataSource;
    Database: TDatabase;
    Query_kc: TQuery;
    Query_cgxx: TQuery;
    SpeedButton1: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sl_editKeyPress(Sender: TObject; var Key: Char);
    procedure yxq_editKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure bm_EditChange(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton1Click(Sender: TObject);
    procedure dj_editEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frminput: TFrminput;
  ck_id:array[0..25] of string;     //存仓库信息表ckxxb中仓库编号字段的值
  table_name:array[0..25] of string; //存放选择的仓库的表名cka---ckf


implementation

uses  ghs, main;



{$R *.DFM}

procedure TFrminput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=Cafree;
end;

procedure TFrminput.sl_editKeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9','.',#8]) then key:=#0;
end;

procedure TFrminput.yxq_editKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then key:=#0
end;

procedure TFrminput.FormCreate(Sender: TObject);
  var i:integer;
begin
   keypreview:=true;
   DateTimePicker2.Date:=now();
   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;
   listbox1.Clear;
   while not Query_ckxx.Eof do
    begin
     listbox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     ck_id[i]:=Query_ckxx.FieldByName('ck_bh').asString;
     table_name[i]:=Query_ckxx.fieldbyName('bm').asString;
     inc(i);
     Query_ckxx.Next;
    end;
   listbox1.ItemIndex:=0;
   listbox1click(self);
   if pos('中药',listbox1.Items[listbox1.itemindex])>0 then
     begin
      pzwh_edit.Enabled:=false;
      yxq_edit.Enabled:=false;
      sb_edit.Enabled:=false;
      jgdw_edit.Enabled:=true;
      bz_edit.Enabled:=false;
     end
   else
     begin
      jgdw_edit.Enabled:=false;
      pzwh_edit.Enabled:=true;
      yxq_edit.Enabled:=true;
      sb_edit.Enabled:=true;
      bz_edit.Enabled:=true;
     end;
end;

procedure TFrminput.ListBox1Click(Sender: TObject);
begin
   edit1.Clear;
   wp_bm_edit.Clear;
   mc_edit.Clear;
   gg_edit.Clear;
   dw_edit.Clear;
   sl_edit.Clear;
   cd_edit.Clear;
   ph_edit.Clear;
   Query_kc.DisableControls;
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   Query_kc.sql.Add('select pm,cd,gg,dw,kcs,dj,jj,ph ');
   if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
     Query_kc.sql.Add(',sb,pzwh,yxq,scrq,bz ')
   else Query_kc.sql.Add(',jgdw ');
   Query_kc.sql.Add(',kcxx,lb,ghs_mc,ck_bh,wp_bm ');
   Query_kc.sql.add(' from '+table_name[listbox1.itemindex]);
   Query_kc.sql.Add(' where ck_bh='''+ck_id[listbox1.itemIndex]+'''');
   Query_kc.sql.Add(' order by pm ');
   Query_kc.Prepare;
   Query_kc.Open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('dj').DisplayLabel:='单价';
   Query_kc.FieldByName('kcs').DisplayLabel:='库存数';
   Query_kc.FieldByName('kcxx').DisplayLabel:='库存下限';
   Query_kc.FieldByName('lb').DisplayLabel:='类别';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   if pos('中药',listbox1.Items[listbox1.itemindex])=0 then
     begin
       Query_kc.FieldByName('sb').DisplayLabel:='商标';
       Query_kc.FieldByName('pzwh').DisplayLabel:='批准文号';
       Query_kc.FieldByName('scrq').DisplayLabel:='生产日期';
       Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
       Query_kc.FieldByName('bz').DisplayLabel:='包装';
     end
   else Query_kc.FieldByName('jgdw').DisplayLabel:='加工单位';
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.FieldByName('ghs_mc').displaylabel:='供货商名称';
   Query_kc.EnableControls;
   if pos('中药',listbox1.Items[listbox1.itemindex])>0 then
    begin
     pzwh_edit.Enabled:=false;
     yxq_edit.Enabled:=false;
     sb_edit.Enabled:=false;
     jgdw_edit.Enabled:=true;
     bz_edit.Enabled:=false;
     maskedit1.Enabled:=false;
    end
   else
    begin
     jgdw_edit.Enabled:=false;
     pzwh_edit.Enabled:=true;
     yxq_edit.Enabled:=true;
     sb_edit.Enabled:=true;
     bz_edit.Enabled:=true;
     maskedit1.Enabled:=true;
    end;
end;

procedure TFrminput.BitBtn1Click(Sender: TObject);
begin
  if bitbtn1.Caption='&S添加' then
    begin
      bitbtn1.Caption:='&Y确定';
      Edit1.Clear;