📄 realtyj2.pas
字号:
Query,query1:TADOQuery;
d,d1,d2:double;
begin
if Edit1.Text='' then
begin
showmessage('请输入单号。');
Edit1.SetFocus;
exit;
end;
if Edit3.Text='' then
begin
showmessage('请选择经手人。');
Edit3.SetFocus;
exit;
end;
if Edit5.Text='' then
begin
showmessage('请选择仓库。');
Edit5.SetFocus;
exit;
end;
if Edit8.Text='' then
begin
showmessage('请选择供应商。');
Edit8.SetFocus;
exit;
end;
s1:='-';
s2:='-';
s3:='-';
if edit7.text<>'' then s1:=edit7.text;
if edit6.text<>'' then s2:=edit6.text;
If Edit9.Text = '' Then Edit9.Text := '-';
if edit10.text='' then edit10.text:='-';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyJA2.bNew=true then
begin
Query.SQL.Add('select * from 入库单 where 单号='''+Edit1.text+'''');
Query.Open ;
if query.RecordCount>0 then
begin
showmessage('编码重复，请重新输入');
Edit1.SetFocus;
query.Close ;
query.Free ;
exit;
end;
s := 'insert into 入库单(单号,日期,经手人,部门,仓库,业务类型,供应商,备注,单据类型,操作员,采购入库单,审核) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
query.Parameters.ParamByName('s2').Value:=datetostr(Edit2.date);
query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
query.Parameters.ParamByName('s4').Value:=s1;
query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
query.Parameters.ParamByName('s6').Value:=s2;
query.Parameters.ParamByName('s7').Value:=trim(Edit8.Text);
query.Parameters.ParamByName('s8').Value:=trim(Edit9.Text);
query.Parameters.ParamByName('s9').Value:='入库单';
query.Parameters.ParamByName('s10').Value:=trim(Edit4.Text);
query.Parameters.ParamByName('s11').Value:=trim(Edit10.Text);
query.Parameters.ParamByName('s12').Value:='N';
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
////////////////////////从表
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
listview1.Items.Item[i].SubItems[4]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[4]);
listview1.Items.Item[i].SubItems[5]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[5]);
s := 'insert into 入库单明细(物料编号,物料名称,规格型号,计量单位,数量,单价,金额,单号)values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=listview1.Items.Item[i].Caption;
query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].subitems[0];
query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].subitems[1];
query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].subitems[2];
query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdInt(listview1.Items.Item[i].subitems[3]));
query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[4]));
query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[5]));
query.Parameters.ParamByName('s8').Value:=edit1.text;
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview1.Items.Count-1 do
begin
//////////更新采购计划中某种物料的完成数量
s:='update 采购计划明细 set 完成数量='+listview1.Items.Item[i].SubItems[3]+' where 物料编号='''+listview1.Items.Item[i].Caption+''' and 单号='''+edit10.Text+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
//////////如果入库数量等于采购数量，则设置采购计划中是否完成为'Y'
query.SQL.Clear;
query.SQL.Add('select * from 采购计划明细 where 物料编号='''+listview1.Items.Item[i].Caption+''' and 单号='''+edit10.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
d1:=strtofloat(query.fieldbyname('数量').value);
d2:=strtofloat(listview1.Items.Item[i].SubItems[3]);
if d1=d2 then
begin
s:='update 采购计划明细 set 是否入库='''+'Y'+''' where 单号='''+edit1.Text+''' and 物料编号='''+listview1.Items.Item[i].Caption+'''';
query.sql.Clear ;
DataModuleADO.ADOConnection1.BeginTrans;
Query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
end;
showmessage('保存成功。');
query.SQL.Clear;
query.SQL.Add('select *from 入库单 where 单号='''+edit1.Text+'''');
query.open;
if query.recordcount>0 then
begin
with f_RealtyJA2.ListView1.Items.Add do
begin
caption:=query.fieldbyname('单号').Value;
subitems.Add(query.fieldbyname('日期').Value);
subitems.Add(query.fieldbyname('经手人').Value);
subitems.Add(query.fieldbyname('部门').Value);
subitems.Add(query.fieldbyname('仓库').Value);
subitems.Add(query.fieldbyname('业务类型').Value);
subitems.Add(query.fieldbyname('供应商').Value);
subitems.Add(query.fieldbyname('审核').Value);
subitems.Add(query.fieldbyname('备注').Value);
end;
end;
query.Close;
query.Free;
if f_RealtyJA2.ListView1.Items.Count>0 then f_RealtyJA2.ListView1.Items.Item[0].Selected:=true;
getId;
edit2.date:=date;
edit3.Text:='';
edit7.Text:='';
edit5.Text:='';
edit6.ItemIndex:=edit6.Items.IndexOf('');
edit8.Text:='';
edit9.Text:='';
listview1.Items.Clear;
end;
if f_RealtyJA2.bNew=false then
begin
s:='update 入库单 set 单号='''+edit1.Text;
s:=s+''', 日期='''+datetostr(edit2.Date);
s:=s+''', 经手人='''+edit3.Text;
s:=s+''', 部门='''+edit7.Text;
s:=s+''', 仓库='''+edit5.Text;
s:=s+''', 业务类型='''+edit6.Text;
s:=s+''', 供应商='''+edit8.Text;
s:=s+''', 备注='''+edit9.Text;
s:=s+''', 采购入库单='''+edit10.Text;
s:=s+''' where 单号='''+f_RealtyJA2.ListView1.Selected.Caption+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 入库单明细 where 单号='''+f_RealtyJA2.listview1.Selected.Caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
listview1.Items.Item[i].SubItems[3]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[3]);
listview1.Items.Item[i].SubItems[4]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[4]);
listview1.Items.Item[i].SubItems[5]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[5]);
s := 'insert into 入库单明细(物料编号,物料名称,规格型号,计量单位,数量,单价,金额,单号)values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=listview1.Items.Item[i].Caption;
query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].subitems[0];
query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].subitems[1];
query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].subitems[2];
query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdInt(listview1.Items.Item[i].subitems[3]));
query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[4]));
query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[5]));
query.Parameters.ParamByName('s8').Value:=edit1.text;
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview1.Items.Count-1 do
begin
//////////更新采购计划中某种物料的完成数量
s:='update 采购计划明细 set 完成数量='+listview1.Items.Item[i].SubItems[3]+' where 物料编号='''+listview1.Items.Item[i].Caption+''' and 单号='''+edit10.Text+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
//////////如果入库数量等于采购数量，则设置采购计划中是否完成为'Y'
query.SQL.Clear;
query.SQL.Add('select * from 采购计划明细 where 物料编号='''+listview1.Items.Item[i].Caption+''' and 单号='''+edit10.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
d1:=strtofloat(query.fieldbyname('数量').value);
d2:=strtofloat(listview1.Items.Item[i].SubItems[3]);
if d1=d2 then
begin
s:='update 采购计划明细 set 是否入库='''+'Y'+''' where 单号='''+edit1.Text+''' and 物料编号='''+listview1.Items.Item[i].Caption+'''';
query.sql.Clear ;
DataModuleADO.ADOConnection1.BeginTrans;
Query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
end;
query.SQL.Clear;
query.SQL.Add('select *from 入库单 where 单号='''+edit1.Text+'''');
query.open;
if query.recordcount>0 then
begin
with f_RealtyJA2.ListView1.Selected do
begin
caption:=query.fieldbyname('单号').Value;
subitems[0]:=query.fieldbyname('日期').Value;
subitems[1]:=query.fieldbyname('经手人').Value;
subitems[2]:=query.fieldbyname('部门').Value;
subitems[3]:=query.fieldbyname('仓库').Value;
subitems[4]:=query.fieldbyname('业务类型').Value;
subitems[4]:=query.fieldbyname('供应商').Value;
subitems[6]:=query.fieldbyname('审核').Value;
subitems[7]:=query.fieldbyname('备注').Value;
end;
end;
query.Close;
query.Free;
close;
end;
bOk:=true;
end;
procedure Tf_RealtyJ2.Button8Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyJ2.Button5Click(Sender: TObject);
var
query:TADOQuery;
d1:double;
begin
f_RealtyJA21:=Tf_RealtyJA21.Create(self);
f_RealtyJA21.Button8.Visible:=true;
f_RealtyJA21.ShowModal;
if f_RealtyJA21.bok=true then
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
query.SQL.Add('select * from 采购计划 where 单号='''+f_RealtyJA21.sNum+'''');
query.Open;
if query.RecordCount>0 then
begin
edit7.text:=query.fieldbyname('部门').value;
edit10.Text:=f_RealtyJA21.sNum;
end;
query.SQL.clear;
query.SQL.add('select * from 采购计划明细 where 单号='''+f_RealtyJA21.sNum+'''');
query.Open;
while not query.Eof do
begin
with listview1.Items.Add do
begin
d1:=strtofloat(query.fieldbyname('数量').Value)-strtofloat(query.fieldbyname('完成数量').Value);
caption:=query.fieldbyname('物料编号').Value;
subitems.Add(query.fieldbyname('物料名称').Value);
subitems.Add(query.fieldbyname('规格型号').Value);
subitems.Add(query.fieldbyname('计量单位').Value);
subitems.Add(floattostr(d1));
subitems.Add(query.fieldbyname('单价').Value);
subitems.Add(query.fieldbyname('金额').Value);
end;
query.Next;
end;
query.close;
query.free;
end;
end;
procedure Tf_RealtyJ2.Button10Click(Sender: TObject);
begin
//Edit1.Text:='L2007-08-160001';
sFilep:='RealtyJ2.fr3';
sTitlep:=Caption;
sPrintc:='select * from 入库单 where 单号='''+Edit1.Text+'''';
sPrintc1:='select * from 入库单明细 where 单号='''+Edit1.Text+'''';
//rep7 := mainform.NumToChar(strtofloat(mainform.StdDou2('10')));
f_RealtyPrint1:=Tf_RealtyPrint1.Create(self);
f_RealtyPrint1.showmodal;
end;
procedure Tf_RealtyJ2.edit6Select(Sender: TObject);
begin
if edit6.Text='新增业务类型' then
begin
mainform.t1:='业务类型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit6.Items.Add(mainform.t1);
edit6.ItemIndex:=edit6.Items.IndexOf(mainform.t1);
end
else edit6.ItemIndex:=edit6.Items.IndexOf('');
end;
end;
procedure Tf_RealtyJ2.Button2Click(Sender: TObject);
begin
f_RealtyA11:=Tf_RealtyA11.Create(self);
f_RealtyA11.ToolButton6.Visible:=true;
f_RealtyA11.ShowModal;
if f_RealtyA11.bOk=true then
begin
edit7.Text:=f_RealtyA11.sName;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -