📄 unitt.pas
字号:
frDbm.qryT.SQL.Text:='select * from t_mout where msno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='出库单号';
sgA.Cells[1,0]:='材料编号';
sgA.Cells[2,0]:='出库数量';
sgA.Cells[3,0]:='经办人';
sgA.Cells[4,0]:='出库时间';
sgA.Cells[5,0]:='备注';
sgA.Cells[6,0]:='仓库编号';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 6 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
// sgA.Cells[6,j]:=frDbm.qryT.Fields[6].AsString;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// memo1.Lines.Add('出库单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的材料！');
end;
if (cmbA.Text='材料') and (cmbB.Text='入库') then
begin
memo1.Text:='';
frDbm.dsetT.Close;
frDbm.dsetT.CommandText:='select * from t_mlist where sno='+s;
frDbm.dsetT.Open;
if frDbm.dsetT.Fields[0].AsString<>'' THEN
begin
frDbm.qryT.Close;
frDbm.qryT.SQL.Clear;
frDbm.qryT.SQL.Text:='select * from t_mjin where msno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='入库单号';
sgA.Cells[1,0]:='材料编号';
sgA.Cells[2,0]:='入库数量';
sgA.Cells[3,0]:='入库价格';
sgA.Cells[4,0]:='经办人';
sgA.Cells[5,0]:='入库时间';
sgA.Cells[6,0]:='供应商编号';
sgA.Cells[7,0]:='备注';
sgA.Cells[8,0]:='仓库编号';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 8 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// memo1.Lines.Add('入库单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[8].AsString);
frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的材料！');
end;
if (cmbA.Text='材料') and (cmbB.Text='报废') then
begin
memo1.Text:='';
frDbm.dsetT.Close;
frDbm.dsetT.CommandText:='select * from t_mlist where sno='+s;
frDbm.dsetT.Open;
if frDbm.dsetT.Fields[0].AsString<>'' THEN
begin
frDbm.qryT.Close;
frDbm.qryT.SQL.Clear;
frDbm.qryT.SQL.Text:='select * from t_mfei where msno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='报废单号';
sgA.Cells[1,0]:='材料编号';
sgA.Cells[2,0]:='报废数量';
sgA.Cells[3,0]:='经办人';
sgA.Cells[4,0]:='报废时间';
sgA.Cells[5,0]:='备注';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 5 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
// sgA.Cells[6,j]:=frDbm.qryT.Fields[6].AsString;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// memo1.Lines.Add('报废单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的材料！');
end;
if (cmbA.Text='成品') and (cmbB.Text='出库') then
begin
memo1.Text:='';
frDbm.dsetT.Close;
frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
frDbm.dsetT.Open;
if frDbm.dsetT.Fields[0].AsString<>'' THEN
begin
frDbm.qryT.Close;
frDbm.qryT.SQL.Clear;
frDbm.qryT.SQL.Text:='select * from t_gout where gsno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='出库单号';
sgA.Cells[1,0]:='成品编号';
sgA.Cells[2,0]:='出库数量';
sgA.Cells[3,0]:='经办人';
sgA.Cells[4,0]:='出库时间';
sgA.Cells[5,0]:='备注';
sgA.Cells[6,0]:='仓库号';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 6 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
// sgA.Cells[6,j]:=frDbm.qryT.Fields[6].AsString;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// memo1.Lines.Add('出库单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的成品！');
end;
if (cmbA.Text='成品') and (cmbB.Text='入库') then
begin
memo1.Text:='';
frDbm.dsetT.Close;
frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
frDbm.dsetT.Open;
if frDbm.dsetT.Fields[0].AsString<>'' THEN
begin
frDbm.qryT.Close;
frDbm.qryT.SQL.Clear;
frDbm.qryT.SQL.Text:='select * from t_gjin where gsno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='入库单号';
sgA.Cells[1,0]:='成品编号';
sgA.Cells[2,0]:='入库数量';
sgA.Cells[3,0]:='经办人';
sgA.Cells[4,0]:='入库时间';
sgA.Cells[5,0]:='仓库号';
sgA.Cells[6,0]:='备注';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 6 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
// sgA.Cells[5,j]:=frDbm.qryT.Fields[6].AsString;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// if frDbm.qryT.Fields[5].AsString='1'then
// memo1.Lines.Add('出库单号'+frDbm.qryT.Fields[0].AsString+'：'+'正常入库');
// if frDbm.qryT.Fields[5].AsString='2'then
// memo1.Lines.Add('出库单号'+frDbm.qryT.Fields[0].AsString+'：'+'退货');
// frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的成品！');
end;
if (cmbA.Text='成品') and (cmbB.Text='报废') then
begin
memo1.Text:='';
frDbm.dsetT.Close;
frDbm.dsetT.CommandText:='select * from t_glist where sno='+s;
frDbm.dsetT.Open;
if frDbm.dsetT.Fields[0].AsString<>'' THEN
begin
frDbm.qryT.Close;
frDbm.qryT.SQL.Clear;
frDbm.qryT.SQL.Text:='select * from t_gfei where gsno='+s;
frDbm.qryT.Open;
if frDbm.qryT.Fields[0].AsString<>'' THEN
begin
memo1.Lines.Add('备注信息:');
sgA.Cells[0,0]:='报废单号';
sgA.Cells[1,0]:='成品编号';
sgA.Cells[2,0]:='报废数量';
sgA.Cells[3,0]:='经办人';
sgA.Cells[4,0]:='报废时间';
sgA.Cells[5,0]:='备注';
j:=1;
sum:=0;
while not frDbm.qryT.Eof do
begin
for i:=0 to 5 do
begin
a:=frDbm.qryT.Fields[i].AsString;
sgA.Cells[i,j]:=a;
end;
sum:=sum+strToInt(sgA.Cells[2,j]);
j:=j+1;
// memo1.Lines.Add('报废单号'+frDbm.qryT.Fields[0].AsString+':'+frDbm.qryT.Fields[5].AsString);
frDbm.qryT.Next;
end;
end
else showmessage('您查找的内容不存在！');
end
else showmessage('不存在编号为'+s+'的成品！');
end;
if (cmbA.Text='') or (cmbB.Text='') then
begin
sum:=0;
showmessage('请选择查询类别和查询状态');
end;
Label8.Caption:='共有：'+inttostr(j-1)+'条记录！';
edtD.Text:=IntToStr(sum);
end
else showmessage('请输入要查询的物品编号！');
end;
if (cb1.Checked=false) and (cb2.Checked=false) then
showmessage('请选择查询方式!');
end;
procedure TfmT.btnBClick(Sender: TObject);
var i,j:word;
begin
mc1.Visible:=false;
mc2.Visible:=false;
memo1.Text:='';
cmbA.Text:='';
cmbB.Text:='';
combC.Text:='';
edtB.Text:='';
edtC.Text:='';
edtD.Text:='';
frDbm.qryT.close;
for j:=0 to 999 do
begin
for i:=0 to 8 do
begin
sgA.Cells[i,j]:='';
end;
end;
end;
procedure TfmT.sbtn1Click(Sender: TObject);
begin
fmMain.show;
fmT.close;
end;
procedure TfmT.mc1Click(Sender: TObject);
var a:Tdatetime;
b:string;
begin
a:=mc1.Date;
b:=DateTimetostr(a);
edtB.Text:=b;
mc1.Visible:=false;
mc2.Visible:=false;
end;
procedure TfmT.edtBClick(Sender: TObject);
begin
mc1.visible:=true;
mc2.Visible:=false;
end;
procedure TfmT.edtCClick(Sender: TObject);
begin
mc1.visible:=false;
mc2.Visible:=true;
end;
procedure TfmT.mc2Click(Sender: TObject);
var a:Tdatetime;
b:string;
begin
a:=mc2.Date;
b:=DateTimetostr(a);
edtC.Text:=b;
mc2.Visible:=false;
mc1.Visible:=false;
end;
procedure TfmT.edtAKeyPress(Sender: TObject; var Key: Char);
begin
if (key in (['0'..'9'])) or (key=#8) then
else
key:=#0;
end;
procedure TfmT.cmbASelect(Sender: TObject);
begin
if cmbA.Text='材料' then
begin
combC.Items.Clear;
frDbm.qryF.Close;
frDbm.qryF.SQL.Clear;
frDbm.qryF.SQL.Text:='select sno from t_mlist ';
frDbm.qryF.Open;
while not frDbm.qryF.Eof do
begin
combC.Items.Add(frDbm.qryF.Fields[0].asstring);
frDbm.qryF.Next;
end;
end;
if cmbA.Text='成品' then
begin
combC.Items.Clear;
frDbm.qryF.Close;
frDbm.qryF.SQL.Clear;
frDbm.qryF.SQL.Text:='select sno from t_glist ';
frDbm.qryF.Open;
while not frDbm.qryF.Eof do
begin
combC.Items.Add(frDbm.qryF.Fields[0].asstring);
frDbm.qryF.Next;
end;
end;
end;
procedure TfmT.cb1Click(Sender: TObject);
begin
if cb1.Checked=true then
begin
edtB.Enabled:=true;
edtC.Enabled:=true;
end;
if cb1.Checked=false then
begin
edtB.Enabled:=false;
edtC.Enabled:=false;
end;
end;
procedure TfmT.cb2Click(Sender: TObject);
begin
if cb2.Checked=true then
begin
combC.Enabled:=true;
end;
if cb2.Checked=false then
begin
combC.Enabled:=false;
end;
end;
procedure TfmT.sgASelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if sgA.Cells[0,Arow]<>'' then
begin
if (cmbA.Text='材料') and (cmbB.Text='出库') then
begin
memo1.Text:='';
memo1.Lines.Add('备注：出库单号'+sgA.Cells[0,Arow]+':去往'+sgA.Cells[5,Arow]);
end;
if (cmbA.Text='材料') and (cmbB.Text='入库') then
begin
memo1.Text:='';
memo1.Lines.Add('备注：入库单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[8,Arow]);
end;
if (cmbA.Text='材料') and (cmbB.Text='报废') then
begin
memo1.Text:='';
memo1.Lines.Add('备注：报废单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
end;
if (cmbA.Text='成品') and (cmbB.Text='入库') then
begin
memo1.Text:='';
if frDbm.qryT.Fields[5].AsString='1'then
memo1.Lines.Add('备注：入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'正常入库');
if frDbm.qryT.Fields[5].AsString='2'then
memo1.Lines.Add('备注:入库单号'+frDbm.qryT.Fields[0].AsString+'：'+'退货');
end;
if (cmbA.Text='成品') and (cmbB.Text='出库') then
begin
memo1.Text:='';
memo1.Lines.Add('备注：出库单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
end;
if (cmbA.Text='成品') and (cmbB.Text='报废') then
begin
memo1.Text:='';
memo1.Lines.Add('备注：报废单号'+sgA.Cells[0,Arow]+':'+sgA.Cells[5,Arow]);
end;
if (cmbA.Text='') or (cmbB.Text='') then
showmessage('请选择查询类别和查询状态');
end
else memo1.Text:='';
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -