?? hwdb.pas
字號:
unit hwdb;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, ExtCtrls, Buttons, StdCtrls, Mask, DBCtrls, ComCtrls,
ToolWin, Db, DBTables, Menus,Printers;
type
TFrmhwdb = class(TForm)
Panel1: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Label3: TLabel;
Edit_dbdw: TEdit;
SpeedButton5: TSpeedButton;
Panel2: TPanel;
Label5: TLabel;
Edit_bm: TEdit;
Label4: TLabel;
Edit_sl: TEdit;
Shape1: TShape;
Label7: TLabel;
Label_ckdh: TLabel;
Label8: TLabel;
DateTimePicker2: TDateTimePicker;
Label9: TLabel;
Label_zdr: TLabel;
Label10: TLabel;
Label_zje: TLabel;
Label1: TLabel;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
DataSource_tmp: TDataSource;
tmp_Table: TTable;
tmp_Query: TQuery;
Query_sum: TQuery;
Query_db: TQuery;
Query_dbdb_bh: TStringField;
Query_dbcd: TStringField;
Query_dbpm: TStringField;
Query_dbgg: TStringField;
Query_dbdw2: TStringField;
Query_dbph: TStringField;
Query_dbjj: TFloatField;
Query_dbdbsl: TFloatField;
Query_dbje: TFloatField;
Query_dbdbrq: TDateTimeField;
Query_dbdbdw: TStringField;
Query_dbfpph: TStringField;
Query_dbck_bh: TStringField;
Query_dbwp_bm: TStringField;
Query_kc: TQuery;
DataSource_kc: TDataSource;
Query_ckxx: TQuery;
Database: TDatabase;
tmp_Querypm: TStringField;
tmp_Querycd: TStringField;
tmp_Querygg: TStringField;
tmp_Querydw: TStringField;
tmp_Queryjj: TFloatField;
tmp_Queryph: TStringField;
tmp_Querydbsl: TFloatField;
tmp_Queryje: TFloatField;
tmp_Querypzwh: TStringField;
tmp_Queryyxq: TFloatField;
tmp_Queryjs: TFloatField;
tmp_Queryck_bh: TStringField;
tmp_Queryhsj: TFloatField;
Query_dbpzwh: TStringField;
Query_dbyxq: TFloatField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ComboBox1Change(Sender: TObject);
procedure Edit_slKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure Edit_bmChange(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit_bmKeyPress(Sender: TObject; var Key: Char);
procedure openkctable(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure tmp_QueryCalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frmhwdb: TFrmhwdb;
// ck_id:array[0..25] of string; //存倉庫信息表ckxxb中倉庫編號字段的值
table_name:array[0..25] of string;
jetotal:real;
hjtotal:real;
implementation
uses main, dbrep, dbdwxx;
{$R *.DFM}
procedure TFrmhwdb.openkctable(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 pm,cd,dw,gg,kcs,jj,ph,jhrq,jgdw,ck_bh,wp_bm,bh from '+table_name[combobox1.itemindex])
else
Query_kc.sql.Add('select pm,cd,dw,gg,kcs,bz,jj,ph,jhrq,pzwh,sb,ck_bh,yxq,wp_bm,bh 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('ph').DisplayLabel:='批號';
if pos('中藥',combobox1.text)>0 then
Query_kc.FieldByName('jgdw').DisplayLabel:='加工單位'
else
begin
Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
Query_kc.FieldByName('sb').DisplayLabel:='商標';
Query_kc.FieldByName('pzwh').DisplayLabel:='批準文號';
Query_kc.FieldByName('bz').DisplayLabel:='包裝';
end;
Query_kc.FieldByName('cd').DisplayLabel:='產地';
Query_kc.EnableControls;
end;
procedure TFrmhwdb.FormCreate(Sender: TObject);
var i:integer;
begin
DateTimePicker2.Date:=Frmmain.GetServerTime;
i:=0;
Query_db.close;
Query_db.UnPrepare;
Query_db.sql.Clear;
Query_db.sql.Add('select * from dbxxb');
Query_db.Prepare;
Query_db.open;
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.fields[1].asstring);
table_name[i]:=Query_ckxx.fieldbyname('bm').asString;
inc(i);
Query_ckxx.Next;
end;
combobox1.ItemIndex:=0;
openkctable(Self);
end;
procedure TFrmhwdb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=CaFree;
end;
procedure TFrmhwdb.ComboBox1Change(Sender: TObject);
begin
openkctable(Self);
end;
procedure TFrmhwdb.Edit_slKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9','.','-',#8]) then key:=#0;
end;
procedure TFrmhwdb.FormShow(Sender: TObject);
begin
jetotal:=0.0;
hjtotal:=0.0;
tmp_table.close;
tmp_table.TableName:='tmpdb.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('jj',ftfloat);
tmp_table.FieldDefs.Add('ph',ftstring,20,false);
tmp_table.FieldDefs.Add('dbsl',ftfloat);
tmp_table.FieldDefs.Add('je',ftfloat);
tmp_table.FieldDefs.Add('pzwh',ftstring,40,false);
tmp_table.FieldDefs.Add('yxq',ftfloat);
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('dbsl').DisplayLabel:='調拔數量';
tmp_table.FieldByName('gg').DisplayLabel:='規格';
tmp_table.FieldByName('ph').DisplayLabel:='批號';
tmp_table.FieldByName('dw').DisplayLabel:='單位';
tmp_table.FieldByName('jj').DisplayLabel:='進價';
tmp_table.FieldByName('je').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 TFrmhwdb.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 pm,cd,dw,gg,kcs,jj,ph,jhrq,jgdw,ck_bh,wp_bm,bh from '+table_name[combobox1.itemindex])
else
Query_kc.sql.Add('select pm,cd,dw,gg,kcs,bz,jj,ph,jhrq,pzwh,sb,yxq,ck_bh,wp_bm,bh from '+table_name[combobox1.itemindex]);
Query_kc.sql.Add(' where wp_bm like '+''''+trim(Edit_bm.Text)+'%'+'''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:='物品編碼';
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -