?? realtyc441.pas
字號:
query1.SQL.add('select * from 收費標準 where 編號='''+query.fieldbyname('收費標準').Value+'''');
query1.Open;
if query1.RecordCount>0 then s9:=query1.fieldbyname('名稱').Value;
with f_RealtyC44.Listview1.Selected do
begin
Caption:=s1;
SubItems[0]:=Query.FieldbyName('客戶').Value;
SubItems[1]:=rr;
SubItems[2]:=Query.FieldByName('單號').Value;
SubItems[3]:=Query.FieldByName('應收日期').Value;
SubItems[4]:=Query.FieldByName('收費項目').Value;
SubItems[5]:=s8;
SubItems[6]:=s10;
SubItems[7]:=Query.FieldByName('單價').Value;
SubItems[8]:=Query.FieldByName('金額').Value;
SubItems[9]:=Query.FieldByName('優惠金額').Value;
SubItems[10]:=Query.FieldByName('優惠后金額').Value;
SubItems[11]:=Query.FieldByName('滯納金').Value;
SubItems[12]:=Query.FieldByName('減免繳滯納金').Value;
SubItems[13]:=Query.FieldByName('應收滯納金').Value;
SubItems[14]:=Query.FieldByName('收取滯納金').Value;
SubItems[15]:=Query.FieldByName('滯納金截至日期').Value;
SubItems[16]:=Query.FieldByName('滯納金天數').Value;
SubItems[17]:=Query.FieldByName('應收金額').Value;
SubItems[18]:=Query.FieldByName('計費開始日期').Value;
SubItems[19]:=Query.FieldByName('計費結束日期').Value;
SubItems[20]:=s6;
SubItems[21]:=s7;
SubItems[22]:=s4;
SubItems[23]:=s5;
SubItems[24]:=s2;
SubItems[25]:=s3;
SubItems[26]:=Query.FieldByName('收費標準').Value;
SubItems[27]:=s9;
SubItems[28]:=Query.FieldByName('備注').Value;
SubItems[29]:=Query.FieldByName('制單人').Value;
SubItems[30]:=Query.FieldByName('修訂人').Value;
SubItems[31]:=Query.FieldByName('審核人').Value;
SubItems[32]:=Query.FieldByName('審核').Value;
end ;
end;
query1.Close;
query1.free;
query.Close;
query.free;
close;
end
else
begin
query.SQL.Clear;
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 其它費用 (單號,房間,客戶,收費項目,收費標準,';
s:=s+'應收日期,計費開始日期,計費結束日期,單價,金額,';
s:=s+'優惠金額,優惠后金額,滯納金截至日期,滯納金天數,滯納金,';
s:=s+'減免繳滯納金,應收滯納金,收取滯納金,應收金額,已收金額,';
s:=s+'已收全,收全日期,備注,制單人,修訂人,收費月份,審核,審核人)';
s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17,:s18,:s19,:s20,';
s:=s+':s21,:s22,:s23,:s24,:s25,:s26,:s27,:s28)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=mainform.GetNum(edit2.Text);
query.Parameters.ParamByName('s3').Value:=r1;
query.Parameters.ParamByName('s4').Value:=r3;
query.Parameters.ParamByName('s5').Value:=r5;
query.Parameters.ParamByName('s6').Value:=datetostr(datetimepicker1.date);
query.Parameters.ParamByName('s7').Value:=datetostr(datetimepicker2.date);
query.Parameters.ParamByName('s8').Value:=datetostr(datetimepicker3.date);
query.Parameters.ParamByName('s9').Value:=mainform.StdDou2(edit7.text);
query.Parameters.ParamByName('s10').Value:=mainform.StdDou2(edit8.text);
query.Parameters.ParamByName('s11').Value:=mainform.StdDou2(edit9.text);
query.Parameters.ParamByName('s12').Value:=mainform.StdDou2(edit10.Text);
query.Parameters.ParamByName('s13').Value:=datetostr(datetimepicker4.date);
query.Parameters.ParamByName('s14').Value:=edit11.Text;
query.Parameters.ParamByName('s15').Value:=mainform.StdDou2(edit12.Text);
query.Parameters.ParamByName('s16').Value:=mainform.StdDou2(edit13.Text);
query.Parameters.ParamByName('s17').Value:=mainform.StdDou2(edit14.Text);
query.Parameters.ParamByName('s18').Value:=s1;
query.Parameters.ParamByName('s19').Value:=mainform.StdDou2(edit15.text);
query.Parameters.ParamByName('s20').Value:=mainform.StdDou2(edit16.text);
query.Parameters.ParamByName('s21').Value:=s2;
query.Parameters.ParamByName('s22').Value:=edit21.text;
query.Parameters.ParamByName('s23').Value:=edit17.text;
query.Parameters.ParamByName('s24').Value:=edit18.text;
query.Parameters.ParamByName('s25').Value:=edit19.text;
query.Parameters.ParamByName('s26').Value:=copy(datetostr(datetimepicker5.date),1,7);
query.Parameters.ParamByName('s27').Value:= 'N';
query.Parameters.ParamByName('s28').Value:= '-';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
showmessage('保存成功');
query.sql.clear;
Query.SQL.Add('select * from 其它費用 where 單號 ='''+edit1.Text+'''');
Query.Open;
if query.RecordCount>0 then
begin
s1:='-';
s2:='-';
s3:='-';
s4:='-';
s5:='-';
s6:='-';
s7:='-';
s8:='-';
s9:='-';
query1.SQL.clear;
query1.SQL.add('select * from 客戶資料 where 客戶代碼='''+query.fieldbyname('客戶').Value+'''');
query1.Open;
if query1.RecordCount>0 then s1:=query1.fieldbyname('客戶名稱').Value;
query1.SQL.clear;
query1.SQL.add('select * from 房間 where 編號='''+query.fieldbyname('房間').Value+'''');
query1.Open;
if query1.RecordCount>0 then
begin
rr:=query1.fieldbyname('名稱').Value;
s2:=query1.fieldbyname('樓宇').Value;
s3:=mainform.getName('樓宇',s2);
s4:=query1.fieldbyname('管理區').Value;
s5:=mainform.getName('管理區',s4);
s6:=query1.fieldbyname('管理處').Value;
s7:=mainform.getName('組織機構',s6);
s10:=query1.fieldbyname('使用面積').value;
end;
query1.SQL.clear;
query1.SQL.add('select * from 收費項目 where 編號='''+query.fieldbyname('收費項目').Value+'''');
query1.Open;
if query1.RecordCount>0 then s8:=query1.fieldbyname('名稱').Value;
query1.SQL.clear;
query1.SQL.add('select * from 收費標準 where 編號='''+query.fieldbyname('收費標準').Value+'''');
query1.Open;
if query1.RecordCount>0 then s9:=query1.fieldbyname('名稱').Value;
with f_RealtyC44.Listview1.Items.Add do
begin
Caption:=s1;
SubItems.Add(Query.FieldbyName('客戶').Value);
SubItems.Add(rr);
SubItems.Add(Query.FieldByName('單號').Value);
SubItems.Add(Query.FieldByName('應收日期').Value);
SubItems.Add(Query.FieldByName('收費項目').Value);
SubItems.Add(s8);
SubItems.Add(s10);
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);
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(s6);
SubItems.Add(s7);
SubItems.Add(s4);
SubItems.Add(s5);
SubItems.Add(s2);
SubItems.Add(s3);
SubItems.Add(Query.FieldByName('收費標準').Value);
SubItems.Add(s9);
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;
query1.Close;
query1.free;
query.Close;
query.free;
getid;
edit2.Text:='';
edit3.Text:='';
edit5.ItemIndex:=edit5.Items.IndexOf('');
edit6.ItemIndex:=edit6.Items.IndexOf('');
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:=czy;
edit18.Text:='';
edit19.Text:='';
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
datetimepicker3.Date:=date;
datetimepicker4.Date:=date;
edit20.text:='';
checkbox1.Checked:=false;
checkbox2.Checked:=false;
end;
end;
procedure Tf_RealtyC441.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyC441.Button1Click(Sender: TObject);
begin
f_RealtyA14:=Tf_RealtyA14.Create(self);
f_RealtyA14.ToolButton6.Visible:=true;
f_RealtyA14.ShowModal;
if f_RealtyA14.bOk=true then
begin
edit2.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
end;
end;
procedure Tf_RealtyC441.Button2Click(Sender: TObject);
begin
f_RealtyB22:=Tf_RealtyB22.Create(self);
f_RealtyB22.toolButton6.Visible:=true;
f_RealtyB22.ShowModal;
if f_RealtyB22.bOk=true then
begin
edit3.Text:=f_RealtyB22.ListView1.Selected.caption+'--'+f_RealtyB22.ListView1.Selected.SubItems[0];
end;
end;
procedure Tf_RealtyC441.Edit9Exit(Sender: TObject);
begin
edit7.Text:=mainform.StdDou2(edit7.text);
edit8.Text:=mainform.StdDou2(edit8.text);
if strtofloat(edit9.Text)>strtofloat(edit7.text) then
begin
showmessage('優惠金額不得大于金額');
end;
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.Edit12Exit(Sender: TObject);
var
d1,d2:double;
begin
d2:=0;
edit7.Text:=mainform.StdDou2(edit7.text);
edit8.Text:=mainform.StdDou2(edit7.text);
edit9.Text:=mainform.StdDou2(edit9.text);
d1:=strtofloat(edit7.text);
d1:=d1-strtofloat(edit9.text);
edit10.Text:=floattostr(d1);
edit10.Text:=mainform.StdDou2(edit10.text);
if checkbox1.Checked=true then
begin
edit11.Text:=mainform.StdDou2(edit11.text);
edit12.Text:=mainform.StdDou2(edit12.text);
edit13.Text:=mainform.StdDou2(edit13.text);
d2:=strtofloat(edit12.text);
//d2:=d2*strtofloat(edit12.text);
d2:=d2-strtofloat(edit13.text);
edit14.Text:=floattostr(d2);
edit14.Text:=mainform.StdDou2(edit14.text);
end
else
begin
Edit11.Text:='0';
Edit12.Text:='0';
Edit13.Text:='0';
Edit14.Text:='0';
d2:=0;
end;
Edit15.Text:=Format('%.2f', [d1+d2]);
end;
procedure Tf_RealtyC441.Edit13Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.CheckBox1Click(Sender: TObject);
begin
edit9.Text:=mainform.StdDou2(edit9.text);
edit13.Text:=mainform.StdDou2(edit13.text);
if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
else edit14.Text:=edit9.text;
end;
procedure Tf_RealtyC441.edit5Select(Sender: TObject);
var
query:TADOQuery;
begin
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
Edit6.Items.Clear;
query.sql.clear;
query.SQL.Add('select * from 收費標準 where 收費項目='''+mainform.getNum(edit5.Text)+'''');
query.Open;
while not query.Eof do
begin
Edit6.Items.Add(query.fieldbyname('編號').Value+'--'+query.fieldbyname('名稱').Value);
query.Next;
end;
end;
procedure Tf_RealtyC441.edit6Exit(Sender: TObject);
var
query:TADOQuery;
s:string;
begin
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
query.sql.clear;
query.SQL.Add('select * from 收費標準 where 名稱='''+edit6.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
s:=query.fieldbyname('收取滯納金').Value;
if s='Y' then checkbox1.Checked:=true
else checkbox1.Checked:=false;
edit7.Text:=query.fieldbyname('單價').value;
end;
edit7.Text:=mainform.StdDou2(edit7.text);
edit8.Text:=mainform.StdDou2(edit8.text);
edit9.Text:=mainform.StdDou2(edit9.text);
edit11.Text:=mainform.StdDou2(edit11.text);
edit12.Text:=mainform.StdDou2(edit12.text);
edit13.Text:=mainform.StdDou2(edit13.text);
edit14.Text:=mainform.StdDou2(edit14.text);
if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
else edit14.Text:=edit9.text;
end;
procedure Tf_RealtyC441.Edit7Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.Edit11Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.Edit16Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -