?? demand_enter.pas
字號:
with frm_data.ClientDataSet_Submit_adopt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Submit_adopt] set Give_Name='''+Trim(Edit_Give_Name.Text)+''',Storage_NO='''+Trim(Edit_Storage_NO.Text)+''',Shop_NO='''+Trim(Edit_Shop_NO.Text)+''',Transactor='''+Trim(Edit_Transactor.Text)+''',Condense='''+Trim(Edit_Condense.Text)+''',Submit_Remark='''+Trim(Edit_Submit_Remark.Text)+''' where Submit_adopt_NO='''+Trim(List_NO)+'''';
try
Execute; //修改采購入庫表
try
for i:=1 to StringGrid1.RowCount-1 do
begin
with frm_data.ClientDataSet_Submit_adopt_detail do
begin
Close;
CommandText:='';
CommandText:='update [Submit_adopt_detail] set Submit_amount='''+Trim(StringGrid1.Cells[3,i])+''',Submit_price='''+Trim(StringGrid1.Cells[4,i])+''',Submit_money='''+Trim(StringGrid1.Cells[5,i])+''',Submit_Detail_Remark='''+Trim(StringGrid1.Cells[6,i])+''' where Submit_adopt_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;
except
Application.MessageBox('保存【受托代銷入庫明細】時循環失敗,請確認！',pchar(application.Title),mb_iconwarning);
Exit;
end;
except
Application.MessageBox('保存【受托代銷入庫單】時失敗,請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
Exit;
end;
end;
end;
if func.Public_Do_Result='03' then //廢棄退出
begin
Close;
end;
end;
frm_Public_Don.Free;
end;
procedure Tfrm_Demand_Enter.Cmd_DeleteClick(Sender: TObject);
var
i:shortint;
begin
if StringGrid1.col<>0 then
begin
StringGrid1.Rows[StringGrid1.Row].Clear; //刪除選中行的所有列 ,用右鍵彈出菜單
DeleteRow(StringGrid1.Row);
//stredit.Text := '';
//stredit.Visible:=false;
//opengood.Visible:=false;
end;
for i:=1 to StringGrid1.RowCount do
StringGrid1.cells[0,i]:=inttostr(i);
end;
procedure Tfrm_Demand_Enter.Cmd_AddClick(Sender: TObject);
var
i:integer;
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
Total_Count:=StringGrid1.RowCount;
for i:=1 to StringGrid1.RowCount-1 do
begin
StringGrid1.Cells[0,i]:=IntTostr(i); //表示第0列第i行
end;
end;
procedure Tfrm_Demand_Enter.Edit_Copy_DateDblClick(Sender: TObject);
begin
Edit_Copy_Date.Text:=Formatdatetime('yyyy''-''mm''-''dd',now);
end;
procedure Tfrm_Demand_Enter.Edit_Copy_DateKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
Edit_Copy_Date.Text:=Formatdatetime('yyyy''-''mm''-''dd',now);
end;
procedure Tfrm_Demand_Enter.Cmd_ZDRClick(Sender: TObject);
begin
Edit_Proposer.Text:=Handle_Man;
end;
procedure Tfrm_Demand_Enter.Edit_ProposerDblClick(Sender: TObject);
begin
Edit_Proposer.Text:=Handle_Man;
end;
procedure Tfrm_Demand_Enter.Edit_ProposerKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
Edit_Proposer.Text:=Handle_Man;
end;
procedure Tfrm_Demand_Enter.Cmd_DWClick(Sender: TObject);
begin
Check_Mond:='';
Check_Mond:='Demand_Enter_Str';
frm_Supply_Monad:=Tfrm_Supply_Monad.Create(self);
frm_Supply_Monad.Caption:='【委托單位】';
frm_Supply_Monad.ShowModal;
Edit_Give_Name.Text:=check_Mond_Result;
frm_Supply_Monad.Free;
end;
procedure Tfrm_Demand_Enter.Cmd_CKClick(Sender: TObject);
begin
Check_Storage:='';
Check_Storage_Result:='';
Check_Storage:='Demand_Enter_Str';
frm_Storage_Select:=Tfrm_Storage_Select.Create(self);
frm_Storage_Select.ShowModal;
Edit_Storage_Name.Text:=Trim(Check_Storage_Result);
Edit_Storage_NO.Text:=Trim(Check_Storage_Result_NO);
frm_Storage_Select.Free;
end;
procedure Tfrm_Demand_Enter.Cmd_DMClick(Sender: TObject);
begin
ChildShop_Str:='';
ChildShop_Result_NO:='';
ChildShop_Result_Name:='';
ChildShop_Str:='Demand_Enter_Str';
frm_ChildShop_Select:=Tfrm_ChildShop_Select.Create(self);
frm_ChildShop_Select.ShowModal;
Edit_Shop_NO.Text:=ChildShop_Result_NO;
Edit_Shop_Name.Text:=ChildShop_Result_Name;
frm_ChildShop_Select.Free;
end;
procedure Tfrm_Demand_Enter.Cmd_JSRClick(Sender: TObject);
begin
Employe_Check:='';
Employe_Check:='Demand_Enter_Str';
Employe_Check_Result:='';
frm_Login_Man:=Tfrm_Login_Man.Create(self);
frm_Login_Man.Caption:='經手人選擇';
frm_Login_Man.ShowModal;
Edit_Transactor.Text:=Employe_Check_Result;
frm_Login_Man.Free;
end;
procedure Tfrm_Demand_Enter.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
s:string;
r:TRect;
begin
with sender as TStringGrid do
begin
if (GDFocused in state) then
begin
Pcol:=Acol;
Prow:=ARow;
String_Col:=ARow;
end;
end;
//文字垂直居中
with StringGrid1 do
begin
Canvas.FillRect(Rect);
s:=Cells[ACol,ARow];
r:=Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER);
end;
end;
procedure Tfrm_Demand_Enter.StringGrid1DblClick(Sender: TObject);
begin
if Trim(Edit_Submit_adopt_NO.Text)='' then
begin
Application.MessageBox('操作失敗，【單據編號】不能為空！',pchar(application.Title),mb_iconwarning);
Edit_Submit_adopt_NO.SetFocus;
Exit;
end;
if Trim(Edit_Give_Name.Text)='' then
begin
Application.MessageBox('操作失敗，【委托單位】不能為空！',pchar(application.Title),mb_iconwarning);
Edit_Give_Name.SetFocus;
Exit;
end;
if Trim(Edit_Transactor.Text)='' then
begin
Application.MessageBox('操作失敗，【經手人】不能為空！',pchar(application.Title),mb_iconwarning);
Edit_Transactor.SetFocus;
Exit;
end;
if ((PCol=1) or (PCol=2))then //表示選擇的是商品編號 選擇的是第一列
begin
Goods_Check_str:='';
frm_Goods_Check:=Tfrm_Goods_Check.Create(self);
frm_Goods_Check.ShowModal;
if Goods_Check_str='Demand_Enter_str' then
begin
try
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [Goods_Information] where Goods_No='''+Goods_No_Str+'''';
Open;
StringGrid1.Cells[1,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_NO').AsString;//商品名稱
StringGrid1.Cells[2,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Name').AsString;//商品名稱
StringGrid1.Cells[7,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Base_Monad').AsString; //類別名稱
StringGrid1.Cells[9,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Modal').AsString; //類別名稱
StringGrid1.Cells[10,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Cards').AsString; //品牌名稱
StringGrid1.Cells[11,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Brand').AsString; //品種名稱
StringGrid1.Cells[12,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Norms_Type').AsString;//規格型號名稱
StringGrid1.Cells[13,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Sphere').AsString;//球面度數
StringGrid1.Cells[14,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Column').AsString;//柱面度數
StringGrid1.Cells[15,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Color').AsString;//顏色名稱
StringGrid1.Cells[16,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Goods_Coding').AsString;//商品條瑪
StringGrid1.Cells[17,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Enroll_Brand').AsString;//注冊商標
StringGrid1.Cells[18,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Factory').AsString;//生產廠家
StringGrid1.Cells[19,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Valid_Day').AsString; //有效日期
StringGrid1.Cells[20,String_Col]:=frm_data.ClientDataSet_Add.FieldByName('Remark').AsString; //備注說明
end;
except
application.MessageBox('操作失敗，請檢查連接網絡是否正常？請確認！',pchar(application.Title),mb_iconwarning);
end;
end;
frm_Goods_Check.Free;
end;
end;
procedure Tfrm_Demand_Enter.Cmd1Click(Sender: TObject);
begin
if Flag1=1 then
begin
if Application.MessageBox('確定需要【審核】該單據嗎？請確認！',pchar(application.Title),mb_okcancel)=idok then
begin
try
with frm_data.ClientDataSet_Receipt do
begin
Close;
Commandtext:='';
Commandtext:='Update [Receipt] set Examine_Man1='''+Trim(Handle_Man)+''' where Receipt_No='''+Trim(Edit_Submit_adopt_NO.Text)+''' and Receipt_Name=''受托代銷入庫單''';
Execute;
L1.Caption:='';
L1.Caption:=LevelName1+'【已審】';
Flag1:=2;
Application.MessageBox('【審核】操作成功！請確認',Pchar(application.Title),MB_ICONwarning);
Cmd_Check_Filsh;
end;
except
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -