?? realtyj4.pas
字號:
if(Application.MessageBox(PChar('確認要刪除所選記錄嗎?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=0) then exit;
listview1.selected.delete;
if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;
procedure Tf_RealtyJ4.ListView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;
procedure Tf_RealtyJ4.Button4Click(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;
procedure Tf_RealtyJ4.Button6Click(Sender: TObject);
var
i,j:integer;
s,s1,s2,s3:string;
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 Edit11.Text='' then
begin
showmessage('請選擇調入倉庫。');
Edit11.SetFocus;
exit;
end;
if Edit5.Text=Edit11.Text then
begin
showmessage('調入倉庫與調出倉庫不能是同一倉庫。');
Edit11.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 := '-';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyJA4.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:='-';
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(Edit11.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]:='-';
if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
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;
showmessage('保存成功。');
query.SQL.Clear;
query.SQL.Add('select *from 調拔單 where 單號='''+edit1.Text+'''');
query.open;
if query.recordcount>0 then
begin
with f_RealtyJA4.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_RealtyJA4.ListView1.Items.Count>0 then f_RealtyJA4.ListView1.Items.Item[0].Selected:=true;
getId;
edit2.date:=date;
edit3.Text:='';
edit7.Text:='';
edit5.Text:='';
edit6.ItemIndex:=edit6.Items.IndexOf('');
edit9.Text:='';
listview1.Items.Clear;
end;
if f_RealtyJA4.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+''', 備注='''+edit9.Text;
s:=s+''', 調入倉庫='''+edit11.Text;
s:=s+''' where 單號='''+f_RealtyJA4.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_RealtyJA4.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]:='-';
if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
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;
query.SQL.Clear;
query.SQL.Add('select *from 調拔單 where 單號='''+edit1.Text+'''');
query.open;
if query.recordcount>0 then
begin
with f_RealtyJA4.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[5]:=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_RealtyJ4.Button8Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyJ4.Button10Click(Sender: TObject);
begin
//Edit1.Text:='L2007-08-160001';
sFilep:='RealtyJ4.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_RealtyJ4.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_RealtyJ4.Button2Click(Sender: TObject);
begin
f_RealtyJ31:=Tf_RealtyJ31.Create(self);
f_RealtyJ31.Button1.Visible:=true;
f_RealtyJ31.ShowModal;
if f_RealtyJ31.bOk=true then
begin
edit11.Text:=f_RealtyJ31.ListView1.Selected.SubItems[0];
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -