?? realtyb12b.pas
字號:
unit RealtyB12B;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, ToolWin, ImgList, Menus;
type
Tf_RealtyB12B = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ListView1: TListView;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit5: TEdit;
Label10: TLabel;
Edit6: TEdit;
Label11: TLabel;
Edit7: TEdit;
Label12: TLabel;
DateTimePicker1: TDateTimePicker;
Edit8: TEdit;
Edit10: TEdit;
GroupBox1: TGroupBox;
Edit11: TEdit;
Label17: TLabel;
DateTimePicker2: TDateTimePicker;
Label13: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Edit9: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
Label14: TLabel;
PopupMenu1: TPopupMenu;
N53: TMenuItem;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Label6: TLabel;
Edit12: TEdit;
Button6: TButton;
Button1: TButton;
N54: TMenuItem;
N55: TMenuItem;
Button2: TButton;
ToolButton6: TButton;
ToolButton5: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N53Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure GetID;
procedure Button6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N54Click(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit4Exit(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bMod:bool;
sTable:string;
cols:integer;
bNew:bool;
end;
var
f_RealtyB12B: Tf_RealtyB12B;
implementation
uses data, main,RealtyB121B,RealtyB33,RealtyB22,RealtyA14,RealtyL23;
{$R *.dfm}
//Init***********************************
procedure Tf_RealtyB12B.FormCreate(Sender: TObject);
Var
query:TADOquery;
s,s1,s2:string;
begin
if f_RealtyB33.bMod=false then
begin
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
GetID;
end;
if f_RealtyB33.bMod=true then
begin
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyB33.ListView1.Selected.SubItems[12]='Y' then ToolButton6.Enabled:=false;
query.SQL.Add('select * from 入伙登記 where 單號='''+f_RealtyB33.ListView1.Selected.SubItems[11]+'''');
query.Open;
if query.RecordCount>0 then
begin
s1:=mainform.getname('房間',query.fieldbyname('房間').Value);
edit12.Text:=query.fieldbyname('單號').Value;
edit1.Text:=query.fieldbyname('房間').Value+'--'+s1;
edit2.Text:=query.fieldbyname('客戶').Value;
edit3.Text:=query.fieldbyname('接待人員').Value;
edit4.Text:=floattostr(query.fieldbyname('入伙收費').Value);
edit5.Text:=query.fieldbyname('購房合同號').Value;
edit6.Text:=query.fieldbyname('收樓書號').Value;
edit7.Text:=query.fieldbyname('入伙通知書').Value;
edit8.Text:=query.fieldbyname('存放位置').Value;
edit9.Text:=query.fieldbyname('產權證號').Value;
edit10.Text:=query.fieldbyname('土地證號').Value;
edit11.Text:=floattostr(query.fieldbyname('金額').Value);
datetimepicker1.Date:=strtodate(query.fieldbyname('入伙日期').Value);
if query.fieldbyname('鑰匙發放').Value<>'N' then checkbox3.Checked:=true
else checkbox3.Checked:=false;
if query.fieldbyname('資料發放').Value<>'N' then checkbox4.Checked:=true
else checkbox4.Checked:=false;
if query.fieldbyname('客戶遷入').Value<>'N' then checkbox1.Checked:=true
else checkbox1.Checked:=false;
if query.fieldbyname('房間以前客戶全部遷出').Value<>'N' then checkbox2.Checked:=true
else checkbox2.Checked:=false;
if query.fieldbyname('代繳類型').Value<>'按金額' then radiobutton1.Checked:=true
else radiobutton2.Checked:=true;
datetimepicker2.Date:=strtodate(query.fieldbyname('代繳開始日期').Value);
end;
query.SQL.clear;
query.SQL.Add('select * from 入伙登記明細 where 單號='''+f_RealtyB33.ListView1.Selected.SubItems[11]+'''');
query.Open;
while not query.Eof do
begin
with 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);
end;
query.next;
end;
query.Close;
query.Free;
end;
end;
//GetId***************************************
procedure Tf_RealtyB12B.GetID;
Var
query:TADOQuery;
s:string;
i:integer;
begin
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
s := 'select top 1 * from 入伙登記 ORDER BY 單號 DESC';
Query.SQL.Add(s);
Query.Open ;
if query.recordcount > 0 then
begin
s:= Query.Fieldbyname('單號').AsString;
s:= Copy(S, 1, 7);
i:= strtoint(s)+1;
if i<10 then edit12.text := '000000'+inttostr(i)
else if (i > 9) and (i<100) then edit12.text := '00000'+inttostr(i)
else if (i > 99) and (i<1000) then edit12.text := '0000'+inttostr(i)
else if (i > 999) and (i<10000) then edit12.text := '000'+inttostr(i)
else if (i > 9999) and (i<100000) then edit12.text := '00'+inttostr(i)
else if (i > 99999) and (i<1000000) then edit12.text := '0'+inttostr(i)
else if i>999999 then edit12.text := inttostr(i);
end
else edit12.text := '0000001';
query.Close;
query.free;
end;
//Tab**************************************
procedure Tf_RealtyB12B.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_RealtyB12B.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
//highlight************************************
procedure Tf_RealtyB12B.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Selected = true then
begin
Sender.Canvas.Brush.Color := clMenuHighlight;
(Sender as TListView).Canvas.Font.Color := clWhite;
end;
end;
procedure Tf_RealtyB12B.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_RealtyB12B.N53Click(Sender: TObject);
begin
bNew:=true;
f_RealtyB121B:=Tf_RealtyB121B.create(self);
f_RealtyB121B.showmodal;
end;
procedure Tf_RealtyB12B.Button6Click(Sender: TObject);
begin
f_RealtyB22:=Tf_RealtyB22.Create(self);
f_RealtyB22.ToolButton6.Visible:=true;
f_RealtyB22.ShowModal;
if f_RealtyB22.bOk=true then
begin
edit2.Text:=f_RealtyB22.ListView1.Selected.SubItems[0];
end;
end;
procedure Tf_RealtyB12B.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
edit1.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
end;
end;
procedure Tf_RealtyB12B.N54Click(Sender: TObject);
begin
if listview1.SelCount=0 then exit;
bNew:=false;
f_RealtyB121B:=Tf_RealtyB121B.create(self);
f_RealtyB121B.showmodal;
end;
procedure Tf_RealtyB12B.N55Click(Sender: TObject);
begin
if listview1.SelCount=0 then exit;
listview1.Selected.Delete;
if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;
procedure Tf_RealtyB12B.Button2Click(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit3.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyB12B.Edit4Exit(Sender: TObject);
begin
edit4.Text:=mainform.StdDou2(edit4.Text);
end;
procedure Tf_RealtyB12B.ToolButton6Click(Sender: TObject);
Var
query,query1,query2,query3:TADOQuery;
s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12:string;
i,j:integer;
begin
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
query1:=TADOQuery.Create(nil);
query1.Connection:=DataModuleADO.ADOConnection1;
query2:=TADOQuery.Create(nil);
query2.Connection:=DataModuleADO.ADOConnection1;
s10:=mainform.getNum(edit1.Text);
if edit1.Text='' then
begin
showmessage('房間不能為空!');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('客戶名稱不能為空!');
edit2.SetFocus;
exit;
end;
if edit3.Text='' then edit3.Text:='-';
edit4.Text:=mainform.StdDou2(edit4.Text);
if edit5.Text='' then edit5.Text:='-';
if edit6.Text='' then edit6.Text:='-';
if edit7.Text='' then edit7.Text:='-';
if edit8.Text='' then edit8.Text:='-';
if edit9.Text='' then edit9.Text:='-';
if edit10.Text='' then edit10.Text:='-';
if edit11.Text='' then edit11.Text:='0.00';
if checkbox3.Checked then s1:='Y' else s1:='N'; //鑰匙發放
if checkbox4.Checked then s2:='Y' else s2:='N'; //資料發放
if checkbox1.Checked then s3:='Y' else s3:='N'; //客戶遷入
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -