?? realtyc221.pas
字號:
unit RealtyC221;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, Menus, ImgList, ToolWin;
type
Tf_RealtyC221 = class(TForm)
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Label9: TLabel;
Button5: TButton;
Button7: TButton;
Edit2: TComboBox;
GroupBox5: TGroupBox;
Label7: TLabel;
Label8: TLabel;
ComboBox2: TComboBox;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure getId;
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
bsuccess:bool;
end;
var
f_RealtyC221: Tf_RealtyC221;
sNum:string;
implementation
uses data, main, RealtyA14,RealtyC22;
{$R *.dfm}
procedure Tf_RealtyC221.getId;
Var
query:TADOQuery;
s:string;
i:integer;
begin
s := 'select top 1 * from 收費時間 ORDER BY 編號 DESC';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query.SQL.Add(s);
Query.Open ;
if query.recordcount > 0 then
begin
s:= Query.Fieldbyname('編號').AsString;
s:= Copy(S, 1, 4);
i:= strtoint(s)+1;
if i<10 then edit1.text := '000'+inttostr(i)
else if (i > 9) and (i<100) then edit1.text := '00'+inttostr(i)
else if (i > 99) and (i<1000) then edit1.text := '0'+inttostr(i)
else if i>999 then edit1.text := inttostr(i);
end
else edit1.text := '0001';
query.close;
query.free;
end;
procedure Tf_RealtyC221.FormCreate(Sender: TObject);
Var
query:TADOQuery;
s:string;
i:integer;
begin
Edit2.Items.Add('收當月');
Edit2.Items.Add('收上月');
Edit2.Items.Add('收下月');
Edit2.Items.Add('指定月');
combobox2.Items.Add('1');
combobox2.Items.Add('2');
combobox2.Items.Add('3');
combobox2.Items.Add('4');
combobox2.Items.Add('5');
combobox2.Items.Add('6');
combobox2.Items.Add('7');
combobox2.Items.Add('8');
combobox2.Items.Add('9');
combobox2.Items.Add('10');
combobox2.Items.Add('11');
combobox2.Items.Add('12');
combobox2.Items.Add('13');
combobox2.Items.Add('14');
combobox2.Items.Add('15');
combobox2.Items.Add('16');
combobox2.Items.Add('17');
combobox2.Items.Add('18');
combobox2.Items.Add('19');
combobox2.Items.Add('20');
combobox2.Items.Add('21');
combobox2.Items.Add('22');
combobox2.Items.Add('23');
combobox2.Items.Add('24');
combobox2.Items.Add('25');
combobox2.Items.Add('26');
combobox2.Items.Add('27');
combobox2.Items.Add('28');
combobox2.Items.Add('29');
combobox2.Items.Add('30');
combobox2.Items.Add('31');
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
if f_realtyC22.bMod=true then
begin
query.SQL.Clear;
query.SQL.Add('select * from 收費時間 where 編號='''+f_RealtyC22.listview1.selected.caption+'''');
query.Open;
if query.RecordCount>0 then
begin
edit1.Text:=query.fieldbyname('編號').Value;
edit2.ItemIndex:=edit2.Items.IndexOf(query.fieldbyname('名稱').Value);
edit2.Text:=query.fieldbyname('名稱').Value;
edit4.Text:=query.fieldbyname('說明').Value;
if query.fieldbyname('審核').Value='Y' then Button7.Enabled:=false;
combobox2.ItemIndex:=combobox2.Items.IndexOf(query.fieldbyname('收費日期').Value);
Edit2Change(Sender);
if query.fieldbyname('名稱').Value='指定月' then
begin
query.SQL.Clear;
query.SQL.Add('select * from 收費時間明細 where 編號='''+f_RealtyC22.listview1.selected.caption+'''');
query.Open;
while not query.Eof do
begin
if query.fieldbyname('月份').Value='01' then checkbox1.Checked:=true;
if query.fieldbyname('月份').Value='02' then checkbox2.Checked:=true;
if query.fieldbyname('月份').Value='03' then checkbox3.Checked:=true;
if query.fieldbyname('月份').Value='04' then checkbox4.Checked:=true;
if query.fieldbyname('月份').Value='05' then checkbox5.Checked:=true;
if query.fieldbyname('月份').Value='06' then checkbox6.Checked:=true;
if query.fieldbyname('月份').Value='07' then checkbox7.Checked:=true;
if query.fieldbyname('月份').Value='08' then checkbox8.Checked:=true;
if query.fieldbyname('月份').Value='09' then checkbox9.Checked:=true;
if query.fieldbyname('月份').Value='10' then checkbox10.Checked:=true;
if query.fieldbyname('月份').Value='11' then checkbox11.Checked:=true;
if query.fieldbyname('月份').Value='12' then checkbox12.Checked:=true;
query.Next;
end;
end;
end;
end;
Query.Close;
Query.Free;
end;
//Tab
procedure Tf_RealtyC221.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Begin
key:=0;
perform(WM_NEXTDLGCTL,0,0);
end
else if key=VK_ESCAPE then close;
end;
procedure Tf_RealtyC221.RadioButton6Click(Sender: TObject);
begin
combobox2.Enabled:=true;
end;
procedure Tf_RealtyC221.Button7Click(Sender: TObject);
Var
query:TADOQuery;
s,s1:String;
i:integer;
begin
if edit2.Text='' then
begin
showmessage('請輸入名稱!');
edit2.SetFocus;
exit;
end;
if combobox2.Text='' then
begin
showmessage('請輸入日期!');
combobox2.SetFocus;
exit;
end;
if edit4.Text='' then edit4.Text:='-';
query:=TADOquery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyC22.bMod=true then
begin
edit1.Enabled:=true;
s:='update 收費時間 set 編號='''+edit1.Text;
s:=s+''',名稱='''+edit2.Text;
s:=s+''',說明='''+edit4.Text;
s:=s+''',收費日期='+combobox2.Text;
s:=s+' where 編號='''+f_RealtyC22.listview1.selected.caption;
s:=s+'''';
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Clear;
query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
query.SQL.Clear;
query.SQL.Add('select * from 收費時間 where 編號='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyC22.listview1.Selected do
begin
Caption:=query.fieldbyname('編號').Value;
subitems[0]:=query.fieldbyname('名稱').Value;
subitems[1]:=query.fieldbyname('說明').Value;
end;
end;
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Text:='delete from 收費時間明細 where 編號='''+f_RealtyC22.listview1.selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
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);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -