?? realtyc44.pas
字號:
unit RealtyC44;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, ImgList, Menus, ToolWin;
type
Tf_RealtyC44 = class(TForm)
GroupBox1: TGroupBox;
ListView1: TListView;
TreeView1: TTreeView;
Button1: TButton;
Button3: TButton;
Button2: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Label3: TLabel;
Button7: TButton;
Button8: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label4: TLabel;
Label2: TLabel;
Edit3: TEdit;
Label7: TLabel;
DateTimePicker1: TDateTimePicker;
Label8: TLabel;
DateTimePicker2: TDateTimePicker;
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 FormCreate(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure TreeView1CustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bMod:bool;
sTable:string;
cols:integer;
sNum:string;
bOk:bool;
end;
var
f_RealtyC44: Tf_RealtyC44;
implementation
uses data, main,RealtyC441,RealtyPrint1;
{$R *.dfm}
//Init*********************************
procedure Tf_RealtyC44.FormCreate(Sender: TObject);
begin
getStructure(TreeView1);
datetimepicker1.date:=date;
datetimepicker2.date:=date;
end;
procedure Tf_RealtyC44.Button1Click(Sender: TObject);
begin
TreeView1Click(Sender);
end;
procedure Tf_RealtyC44.TreeView1Click(Sender: TObject);
Var
query,query1,query2,query3,query4:TADOQuery;
nLevel:integer;
s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string;
r1,r2,r3:string;
begin
listview1.Items.Clear;
nLevel:=treeview1.Selected.Level;
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
Query2:=TADOQuery.Create(nil);
Query2.Connection:=DataModuleADO.ADOConnection1;
Query3:=TADOQuery.Create(nil);
Query3.Connection:=DataModuleADO.ADOConnection1;
Query4:=TADOQuery.Create(nil);
Query4.Connection:=DataModuleADO.ADOConnection1;
if nLevel=0 then
begin
s:='select * from 其它費用 where 單號 like ''%'+Edit1.text;
s:=s+'%'' and 收費月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收費月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 單號 asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客戶資料 where 客戶代碼='''+Query.FieldByName('客戶').Value;
s:=s+''' and 客戶名稱 like ''%'+edit2.Text+'%''';
query1.SQL.Clear;
Query1.SQL.Add(s);
Query1.Open ;
if query1.RecordCount>0 then
begin
s1:=query1.fieldbyname('客戶名稱').value;
s:='select * from 房間 where 編號='''+Query.FieldByName('房間').Value;
s:=s+''' and 名稱 like ''%'+edit3.Text+'%''';
query2.SQL.Clear;
Query2.SQL.Add(s);
Query2.Open ;
if query2.RecordCount>0 then
begin
r1:=query2.fieldbyname('名稱').Value;
s2:=query2.fieldbyname('樓宇').Value;
s3:=mainform.getName('樓宇',s2);
s4:=query2.fieldbyname('管理區').Value;
s5:=mainform.getName('管理區',s4);
s6:=query2.fieldbyname('管理處').Value;
s7:=mainform.getName('組織機構',s6);
s10:=query2.fieldbyname('建筑面積').value;
query3.SQL.clear;
query3.SQL.add('select * from 收費項目 where 編號='''+query.fieldbyname('收費項目').Value+'''');
query3.Open;
if query3.RecordCount>0 then s8:=query3.fieldbyname('名稱').Value;
query3.SQL.clear;
query3.SQL.add('select * from 收費標準 where 編號='''+query.fieldbyname('收費標準').Value+'''');
query3.Open;
if query3.RecordCount>0 then s9:=query3.fieldbyname('名稱').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(Query.FieldbyName('客戶').Value);
SubItems.Add(r1);
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;
end;
query.Next;
end;
end;
if nLevel>0 then
begin
s:='select * from 組織機構 where 名稱 = '''+treeview1.Selected.Text+'''';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
if query.RecordCount>0 then
begin
s1:=Query.FieldByName('stampt').Value;
s:='select * from 組織機構 where 組織機構類別='''+'管理處';
s:=s+''' and stampt like '''+s1+'%''';
query1.SQL.Clear;
Query1.SQL.Add(s);
Query1.Open ;
while not Query1.Eof do
begin
s:='select * from 其它費用 where 單號 like ''%'+Edit1.text;
s:=s+'%'' and 收費月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收費月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 單號 asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客戶資料 where 客戶代碼 ='''+query.fieldbyname('客戶').Value;
s:=s+''' and 客戶名稱 like ''%'+edit2.Text;
s:=s+'%'' and 管理處 ='''+Query1.FieldByName('編號').Value+'''';
query2.SQL.Clear;
Query2.SQL.Add(s);
Query2.Open ;
if query2.RecordCount>0 then
begin
s1:=query2.fieldbyname('客戶名稱').Value;
s:='select * from 房間 where 編號='''+Query.FieldByName('房間').Value;
s:=s+''' and 名稱 like ''%'+edit3.Text+'%''';
query3.SQL.Clear;
Query3.SQL.Add(s);
Query3.Open ;
if query3.RecordCount>0 then
begin
r1:=query3.fieldbyname('名稱').Value;
s2:=query3.fieldbyname('樓宇').Value;
s3:=mainform.getName('樓宇',s2);
s4:=query3.fieldbyname('管理區').Value;
s5:=mainform.getName('管理區',s4);
s6:=query3.fieldbyname('管理處').Value;
s7:=mainform.getName('組織機構',s6);
s10:=query3.fieldbyname('建筑面積').value;
query4.SQL.clear;
query4.SQL.add('select * from 收費項目 where 編號='''+query.fieldbyname('收費項目').Value+'''');
query4.Open;
if query4.RecordCount>0 then s8:=query4.fieldbyname('名稱').Value;
query4.SQL.clear;
query4.SQL.add('select * from 收費標準 where 編號='''+query.fieldbyname('收費標準').Value+'''');
query4.Open;
if query4.RecordCount>0 then s9:=query4.fieldbyname('名稱').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(Query.FieldbyName('客戶').Value);
SubItems.Add(r1);
SubItems.Add(Query.FieldByName('單號').Value);
SubItems.Add(Query.FieldByName('應收日期').Value);
SubItems.Add(s8);
SubItems.Add(Query.FieldByName('收費項目').Value);
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);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -