?? hwdb.pas
字號(hào):
Query_kc.FieldByName('gg').DisplayLabel:='規(guī)格';
Query_kc.FieldByName('kcs').DisplayLabel:='庫存數(shù)';
Query_kc.FieldByName('jhrq').DisplayLabel:='進(jìn)貨日期';
Query_kc.FieldByName('dw').DisplayLabel:='單位';
Query_kc.FieldByName('jj').DisplayLabel:='進(jìn)價(jià)';
Query_kc.FieldByName('ph').DisplayLabel:='批號(hào)';
if pos('中藥',combobox1.text)>0 then
Query_kc.FieldByName('jgdw').DisplayLabel:='加工單位'
else
begin
Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
Query_kc.FieldByName('sb').DisplayLabel:='商標(biāo)';
Query_kc.FieldByName('pzwh').DisplayLabel:='批準(zhǔn)文號(hào)';
Query_kc.FieldByName('bz').DisplayLabel:='包裝';
end;
Query_kc.FieldByName('cd').DisplayLabel:='產(chǎn)地';
Query_kc.EnableControls;
end;
procedure TFrmhwdb.BitBtn4Click(Sender: TObject);
var r,sl,kcs:real;
ypbh:string;
begin
if ( not Query_kc.Eof) or ( not Query_kc.Bof) then
begin
ypbh:=query_kc.fieldbyname('bh').asstring;
kcs:=Query_kc.FieldByName('kcs').asfloat;
sl:=strtofloat(Edit_sl.text);
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 bh='''+ypbh+'''');
Query_kc.Prepare;
Query_kc.open;
Query_kc.FieldByName('ck_bh').DisplayLabel:='倉庫編號(hào)';
Query_kc.FieldByName('bh').DisplayLabel:='編號(hào)';
Query_kc.FieldByName('pm').DisplayLabel:='物品名稱';
Query_kc.FieldByName('wp_bm').DisplayLabel:='物品編碼';
Query_kc.FieldByName('gg').DisplayLabel:='規(guī)格';
Query_kc.FieldByName('kcs').DisplayLabel:='庫存數(shù)';
Query_kc.FieldByName('jhrq').DisplayLabel:='進(jìn)貨日期';
Query_kc.FieldByName('dw').DisplayLabel:='單位';
Query_kc.FieldByName('jj').DisplayLabel:='進(jìn)價(jià)';
Query_kc.FieldByName('ph').DisplayLabel:='批號(hào)';
if pos('中藥',combobox1.text)>0 then
Query_kc.FieldByName('jgdw').DisplayLabel:='加工單位'
else
begin
Query_kc.FieldByName('yxq').DisplayLabel:='有效期';
Query_kc.FieldByName('sb').DisplayLabel:='商標(biāo)';
Query_kc.FieldByName('pzwh').DisplayLabel:='批準(zhǔn)文號(hào)';
Query_kc.FieldByName('bz').DisplayLabel:='包裝';
end;
Query_kc.FieldByName('cd').DisplayLabel:='產(chǎn)地';
Query_kc.EnableControls;
if (Edit_sl.Text='') or (strtofloat(Edit_sl.Text)=0.0) then
begin
Application.MessageBox('請(qǐng)?zhí)顚懻{(diào)拔數(shù)量','提示', MB_OK+MB_ICONINFORMATION);
exit
end;
if Edit_dbdw.Text='' then
begin
Application.MessageBox('請(qǐng)?zhí)顚懻{(diào)拔單位','提示', MB_OK+MB_ICONINFORMATION);
exit;
end;
if sl>kcs then
begin
Application.MessageBox('庫存量不足','提示', MB_OK+MB_ICONINFORMATION);
exit;
end;
Query_kc.Edit;
Query_kc.FieldByName('kcs').asfloat:=Query_kc.FieldByName('kcs').asfloat-strtofloat(Edit_sl.Text);
Query_db.Append;
Query_db.FieldByName('db_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring+formatdatetime('yyyymmddhhmmss',Frmmain.GetServerTime);
Query_db.FieldByName('pm').asstring:=Query_kc.fieldbyname('pm').asstring;
Query_db.FieldByName('cd').asstring:=Query_kc.fieldbyname('cd').asstring;
Query_db.FieldByName('gg').asstring:=Query_kc.fieldbyname('gg').asstring;
Query_db.FieldByName('dw').asstring:=Query_kc.fieldbyname('dw').asstring;
Query_db.FieldByName('jj').asstring:=Query_kc.fieldbyname('jj').asstring;
Query_db.FieldByName('dbsl').asstring:=Edit_sl.Text;
Query_db.FieldByName('je').asfloat:=Query_kc.fieldbyname('jj').asfloat*strtofloat(Edit_sl.text);
Query_db.FieldByName('ph').asstring:=Query_kc.fieldbyname('ph').asstring;
if pos('中藥',combobox1.Text)=0 then
begin
Query_db.FieldByName('pzwh').asstring:=Query_kc.fieldbyname('pzwh').asstring;
Query_db.FieldByName('yxq').asstring:=Query_kc.fieldbyname('yxq').asstring;
end;
Query_db.FieldByName('ck_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring;
Query_db.FieldByName('fpph').asstring:=Label_ckdh.Caption;
Query_db.FieldByName('dbdw').asstring:=trim(Edit_dbdw.Text);
Query_db.FieldByName('dbrq').asstring:=datetostr(DateTimePicker2.date);
Query_db.FieldByName('wp_bm').asstring:=Query_kc.fieldbyname('wp_bm').asstring;
Try
Database.StartTransaction;
Query_db.Post;
Query_kc.Post;
Database.Commit;
Except
Database.Rollback;
Application.MessageBox('數(shù)據(jù)提交錯(cuò)誤','提示', MB_OK+MB_ICONINFORMATION);
exit;
End;
tmp_table.open;
tmp_table.edit;
tmp_table.Append;
tmp_table.FieldByName('pm').asstring:=Query_kc.fieldbyname('pm').asstring;
tmp_table.FieldByName('dbsl').asstring:=Edit_sl.Text;
tmp_table.FieldByName('jj').asfloat:=Query_kc.fieldbyname('jj').asfloat;
tmp_table.FieldByName('je').asfloat:=Query_kc.fieldbyname('jj').asfloat*strtofloat(Edit_sl.text);
tmp_table.FieldByName('ck_bh').asstring:=Query_kc.fieldbyname('ck_bh').asstring;
tmp_table.FieldByName('gg').asstring:=Query_kc.fieldbyname('gg').asstring;
tmp_table.FieldByName('dw').asstring:=Query_kc.fieldbyname('dw').asstring;
if pos('中藥',combobox1.Text)=0 then
begin
tmp_table.FieldByName('yxq').asstring:=Query_kc.fieldbyname('yxq').asstring;
tmp_table.FieldByName('pzwh').asstring:=Query_kc.fieldbyname('pzwh').asstring;
R:=frac(strtofloat(Edit_sl.Text)/Query_kc.fieldbyname('bz').asfloat);
if r=0.0 then
tmp_table.FieldByName('js').asfloat:=strtofloat(Edit_sl.Text) / Query_kc.fieldbyname('bz').asfloat
else
tmp_table.FieldByName('js').asfloat:=0;
end;
tmp_table.FieldByName('ph').asstring:=Query_kc.fieldbyname('ph').asstring;
tmp_table.FieldByName('cd').asstring:=Query_kc.fieldbyname('cd').asstring;
tmp_table.Post;
jetotal:=jetotal+tmp_table.FieldByName('je').asfloat;
Label_zje.Caption:=format('￥%.2f',[jetotal]);
Edit_sl.Clear;
Edit_bm.Clear;
Edit_bm.SetFocus;
end;
end;
procedure TFrmhwdb.BitBtn2Click(Sender: TObject);
begin
Frmhwdb.OnShow(Self);
bitbtn4.Enabled:=true;
end;
procedure TFrmhwdb.Edit_bmKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Edit_sl.SetFocus;
end;
procedure TFrmhwdb.BitBtn1Click(Sender: TObject);
begin
if (not tmp_table.Bof) or (not tmp_table.Eof) then
begin
Query_ckxx.close;
Query_ckxx.UnPrepare;
Query_ckxx.sql.Clear;
Query_ckxx.sql.Add('select * from ckxxb');
Query_ckxx.Prepare;
Query_ckxx.open;
Query_ckxx.First;
while not Query_ckxx.Eof do
begin
tmp_query.close;
tmp_query.UnPrepare;
tmp_query.sql.Clear;
tmp_query.sql.Add('select * from '+tmp_table.TableName);
tmp_query.sql.Add(' where ck_bh='''+Query_ckxx.fieldbyname('ck_bh').asstring+'''');
tmp_query.sql.Add(' order by ck_bh,pm');
tmp_query.Prepare;
tmp_query.open;
if not tmp_Query.Eof then
begin
hjtotal:=0.0;
Query_sum.close;
Query_sum.UnPrepare;
Query_sum.sql.Clear;
Query_sum.sql.Add('select sum(je) as hj from '+tmp_table.TableName);
Query_sum.sql.Add(' where ck_bh='''+Query_ckxx.fieldbyname('ck_bh').asstring+'''');
Query_sum.Prepare;
Query_sum.open;
hjtotal:=query_sum.fieldbyname('hj').asfloat;
Frmdbrep.quickrep1.DataSet:=tmp_Query;
Frmdbrep.QRDBText_cd.DataSet:=tmp_Query;
Frmdbrep.QRDBText_pm.DataSet:=tmp_Query;
Frmdbrep.QRDBText_gg.DataSet:=tmp_Query;
Frmdbrep.QRDBText_dw.DataSet:=tmp_Query;
Frmdbrep.QRDBText_sl.DataSet:=tmp_Query;
Frmdbrep.QRDBText_jj.DataSet:=tmp_Query;
Frmdbrep.QRDBText_je.DataSet:=tmp_Query;
Frmdbrep.QRDBText_ph.DataSet:=tmp_Query;
Frmdbrep.QRDBText_yxq.DataSet:=tmp_Query;
Frmdbrep.QRDBText_pzwh.DataSet:=tmp_Query;
Frmdbrep.QRDBText_js.DataSet:=tmp_Query;
Frmdbrep.QRDBText_hsj.DataSet:=tmp_Query;
Frmdbrep.QRlabel_dbdw.Caption:=Edit_dbdw.Text;
Frmdbrep.QRlabel_ck.Caption:=Query_ckxx.fieldbyname('ck_mc').asstring;
Frmdbrep.QRlabel_dbrq.Caption:=formatdatetime('yyyy-mm-dd',DateTimePicker2.date);
Frmdbrep.QRLabel_ph.Caption:=Label_ckdh.Caption;
Frmdbrep.QRlabel_czy.Caption:=Label_zdr.Caption;
Frmdbrep.QRlabel_hj.Caption:=format('￥%2f',[hjtotal]);
Frmdbrep.QRlabel_zje.Caption:=Label_zje.Caption;
Frmdbrep.QuickRep1.page.Length:=197+tmp_query.RecordCount*28;
Frmdbrep.QuickRep1.Prepare;
// Frmdbrep.QuickRep1.Preview;
Frmdbrep.QuickRep1.print;
end;
Query_ckxx.Next;
end;
edit_sl.Clear;
Edit_bm.Clear;
Edit_dbdw.Clear;
bitbtn2.Enabled:=true;
bitbtn4.Enabled:=false;
end
end;
procedure TFrmhwdb.SpeedButton5Click(Sender: TObject);
begin
Frmdbdwxx:=TFrmdbdwxx.create(Self);
Frmmain.pubedit:=Edit_dbdw;
Frmdbdwxx.ShowModal;
end;
procedure TFrmhwdb.BitBtn3Click(Sender: TObject);
begin
Self.Close;
end;
procedure TFrmhwdb.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
Key:=#0;
PostMessage(Handle,WM_NEXTDLGCTL,0,0);
end;
end;
procedure TFrmhwdb.tmp_QueryCalcFields(DataSet: TDataSet);
var jj:real;
begin
jj:=tmp_query.FieldByName('jj').asfloat;
if tmp_query.FieldByName('ck_bh').asstring<>'e' then
tmp_query.FieldByName('hsj').asfloat:=jj*1.17
else tmp_query.FieldByName('hsj').asfloat:=jj*1.13
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -