?? realtyc221.pas
字號:
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='06';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox7.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='07';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox8.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='08';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox9.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='09';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox10.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='10';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox11.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='11';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox12.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='12';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
query.Close;
query.Free;
close;
end;
if f_RealtyC22.bMod=false then
begin
query.SQL.clear;
query.SQL.Add('select * from 收費時間 where 編號='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
showmessage('編號重復');
query.Close;
query.Free;
exit;
end;
s:='insert into 收費時間 (編號,名稱,說明,收費日期)';
s:=s+'values(:s1,:s2,:s3,:s4)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=edit2.Text;
query.Parameters.ParamByName('s3').Value:=edit4.text;
query.Parameters.ParamByName('s4').Value:=combobox2.Text;
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
{if Edit2.Text='指定月' then
begin
query.SQL.Clear;
query.SQL.Add('select * from 收費時間 where 編號='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyC22.listview1.Items.Add do
begin
Caption:=query.fieldbyname('編號').value;
SubItems.Add(query.fieldbyname('名稱').Value);
SubItems.Add(Query.FieldByName('說明').Value);
end;
end;
end; }
if Edit2.Text='指定月' then
begin
if checkbox1.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='01';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox2.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='02';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox3.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='03';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox4.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='04';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox5.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='05';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox6.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='06';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox7.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='07';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox8.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='08';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox9.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='09';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox10.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='10';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox11.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='11';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
if checkbox12.Checked=true then
begin
s:='insert into 收費時間明細(編號,月份) values(:s1,:s2)';
query.sql.clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:='12';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
end;
query.SQL.Clear;
query.SQL.Add('select * from 收費時間 where 編號='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyC22.listview1.items.add do
begin
Caption:=query.fieldbyname('編號').value;
SubItems.Add(query.fieldbyname('名稱').Value);
SubItems.Add(Query.FieldByName('說明').Value);
end;
end;
query.Close;
query.Free;
if f_RealtyC22.ListView1.Items.Count>0 then f_RealtyC22.listview1.Items.Item[0].Selected:=true;
edit1.text:='';
edit2.text:='';
combobox2.ItemIndex:=combobox2.Items.IndexOf('');
edit4.Text:='';
Edit1.setfocus;
end;
end;
procedure Tf_RealtyC221.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyC221.Edit2Change(Sender: TObject);
begin
if Edit2.Text='指定月' then
begin
GroupBox2.Enabled:=true;
CheckBox1.Enabled:=true;
CheckBox2.Enabled:=true;
CheckBox3.Enabled:=true;
CheckBox4.Enabled:=true;
CheckBox5.Enabled:=true;
CheckBox6.Enabled:=true;
CheckBox7.Enabled:=true;
CheckBox8.Enabled:=true;
CheckBox9.Enabled:=true;
CheckBox10.Enabled:=true;
CheckBox11.Enabled:=true;
CheckBox12.Enabled:=true;
end
else
begin
GroupBox2.Enabled:=false;
CheckBox1.Enabled:=false;
CheckBox2.Enabled:=false;
CheckBox3.Enabled:=false;
CheckBox4.Enabled:=false;
CheckBox5.Enabled:=false;
CheckBox6.Enabled:=false;
CheckBox7.Enabled:=false;
CheckBox8.Enabled:=false;
CheckBox9.Enabled:=false;
CheckBox10.Enabled:=false;
CheckBox11.Enabled:=false;
CheckBox12.Enabled:=false;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -