📄 quality_check.pas
字号:
begin
Application.MessageBox('操作错误,【商品编号】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
if StringGrid1.Cells[3,i]='' then
begin
Application.MessageBox('操作错误,【总计数量】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
if StringGrid1.Cells[4,i]='' then
begin
Application.MessageBox('操作错误,【合格数量】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
if StringGrid1.Cells[5,i]='' then
begin
Application.MessageBox('操作错误,【不合格数量】不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
try
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='SELECT * FROM [Quality_Check] where Copy_Date='''+Trim(Edit1.Text)+''' and Stock_NO='''+Trim(Edit2.Text)+''' and Gather_Name='''+Trim(Edit4.Text)+''' and Storage_NO='''+Trim(Edit5.Text)+'''';
try
Open;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
Application.MessageBox('该【质量验收单】操作已经存在了，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end
else
begin
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='INSERT INTO [Quality_Check](Copy_Date,Stock_NO,Stock_Write_NO,Gather_Name,Storage_NO,Transactor,Shop_NO,Proposer,Condense,Quality_Remark,Contract_NO) values ('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+Trim(Edit3.Text)+''','''+Trim(Edit4.Text)+''','''+Trim(Edit5.Text)+''','''+Trim(Edit6.Text)+''','''+Trim(Edit7.Text)+''','''+Trim(Edit8.Text)+''','''+Trim(Edit9.Text)+''','''+Trim(Edit10.Text)+''','''+Trim(Edit11.Text)+''')';
try
Execute;
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.CommandText:='';
CommandText:='Insert into [Receipt](Receipt_NO,Receipt_Name,Copy_Date,Proposer,Condense) values ('''+Trim(Edit2.Text)+''',''质量验收单'','''+Trim(Edit1.Text)+''','''+Trim(Edit8.Text)+''','''+Trim(Edit9.Text)+''')';
try
Execute;
try
for i:=1 to Total_Count-1 do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='Insert into [Quality_Check_detail](Stock_NO,Goods_NO,Total_Amount,Regular_Amount,Un_Regular_Amount,Check_Remark) values ('''+Trim(Edit2.Text)+''','''+Trim(StringGrid1.Cells[1,i])+''','''+Trim(StringGrid1.Cells[3,i])+''','''+Trim(StringGrid1.Cells[4,i])+''','''+Trim(StringGrid1.Cells[5,i])+''','''+Trim(StringGrid1.Cells[6,i])+''')';
try
Execute;
except
Application.MessageBox('保存【质量验收明细表】时连接服务器数据库失败，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
Application.MessageBox('恭喜你！【质量验收单】草稿操作成功，请确认！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('保存【质量验收明细表】时循环失败，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存【质量验收审核表】时连接服务器数据库失败，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存【质量验收单】时连接服务器数据库失败，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
except
Application.MessageBox('打开【质量验收单】时连接服务器数据库失败，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存数据时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('非法操作导致了系统错误！请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
//废弃退出
if Public_Do_Result='03' then
begin
frm_data.ClientDataSet_Add.Close;
frm_data.ClientDataSet_Add.Active:=False;
Close;
end;
end;
//草稿操作
if Public_Do='Business_Draft_0006' then
begin
//保存为单据
if Public_Do_Result='01' then
begin
with frm_data.ClientDataSet2 do
begin
Close;
CommandText:='';
Commandtext:='Select * from [V_Stock_Quality_View] where Receipt_No='''+Trim(Edit2.Text)+'''';
try
Open;
Check_Flag:=frm_data.ClientDataSet2.FieldValues['Check_Result'];
if Check_Flag='0' then
begin
Application.MessageBox('单据还没有完全审核，不能过帐',pchar(application.Title),mb_iconwarning);
Exit;
end;
if Check_Flag='1' then
begin
try
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
Commandtext:='Update [Quality_Check] set Gather_Name='''+Trim(Edit4.Text)+''',Storage_NO='''+Trim(Edit5.Text)+''',Transactor='''+Trim(Edit6.Text)+''',Shop_NO='''+Trim(Edit7.Text)+''',Proposer='''+Trim(Edit8.Text)+''',Condense='''+Trim(Edit9.Text)+''',Quality_Remark='''+Trim(Edit10.Text)+''',Contract_No='''+Trim(Edit11.Text)+''' where Stock_No='''+Trim(List_NO)+'''';
try
Execute;
try
for i:=1 to Total_Count do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='update [Quality_Check_detail] set Total_Amount='''+Trim(StringGrid1.Cells[3,i])+''',Regular_Amount='''+Trim(StringGrid1.Cells[4,i])+''',Un_Regular_Amount='''+Trim(StringGrid1.Cells[5,i])+''',Check_Remark='''+Trim(StringGrid1.Cells[6,i])+''' where Stock_NO='''+Trim(List_NO)+''' and Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
try
Execute;
except
Application.MessageBox('保存[质量验收明细表]时连接服务器数据库失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Flag_sign=''单据'' where Receipt_No='''+Trim(List_NO)+'''';
try
Execute;
Application.MessageBox('单据过帐完毕！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('单据过帐时保存[质量验收审核表]时连接服务器数据库失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存[质量验收明细表]时循环失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存[质量验收单]时连接服务器数据库失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('系统错误,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('打开[质量验收视图]时失败，不能过帐',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
//修改草稿单据
if Public_Do_Result='02' then
begin
try
with frm_data.ClientDataSet_Add do
begin
Close;
Commandtext:='';
Commandtext:='Update [Quality_Check] set Gather_Name='''+Trim(Edit4.Text)+''',Storage_NO='''+Trim(Edit5.Text)+''',Transactor='''+Trim(Edit6.Text)+''',Shop_NO='''+Trim(Edit7.Text)+''',Proposer='''+Trim(Edit8.Text)+''',Condense='''+Trim(Edit9.Text)+''',Quality_Remark='''+Trim(Edit10.Text)+''',Contract_No='''+Trim(Edit11.Text)+''' where Stock_No='''+Trim(List_NO)+'''';
try
Execute;
try
for i:=1 to Total_Count do
begin
with frm_data.ClientDataSet_Add do
begin
Close;
frm_data.ClientDataSet_Add.CommandText:='';
CommandText:='update [Quality_Check_detail] set Total_Amount='''+Trim(StringGrid1.Cells[3,i])+''',Regular_Amount='''+Trim(StringGrid1.Cells[4,i])+''',Un_Regular_Amount='''+Trim(StringGrid1.Cells[5,i])+''',Check_Remark='''+Trim(StringGrid1.Cells[6,i])+''' where Stock_NO='''+Trim(List_NO)+'''Goods_NO='''+Trim(StringGrid1.Cells[1,i])+'''';
try
Execute;
except
Application.MessageBox('保存[质量验收明细]时连接网络数据库失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
Application.MessageBox('单据保存为草稿完毕！',pchar(application.Title),mb_iconwarning);
except
Application.MessageBox('保存[质量验收明细]时循环失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存[质量验收单]时连接网络数据库失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
except
Application.MessageBox('保存单据明细时失败,请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
if Public_Do_Result='03' then
begin
frm_data.ClientDataSet_Add.Active:=False;
frm_data.ClientDataSet_Add.Close;
frm_data.ClientDataSet2.Active:=False;
frm_data.ClientDataSet2.Close;
Close;
end;
end;
frm_Public_Don.Free;
end;
procedure Tfrm_Quality_Check.FormShow(Sender: TObject);
var
i,icount,k:integer;
tt,yy,temppos:integer;
begin
frm_Quality_Check.Left:=170 * longint(Screen.Width) div 1024;
frm_Quality_Check.Top:=40 * longint(Screen.Height) div 768;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -