?? mc_yzxxdj.~pas
字號:
unit MC_YZXXDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, DBCtrls, Db, DBTables, Buttons, ExtCtrls;
type
TYZXXDJ = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
DBLookupComboBox1: TDBLookupComboBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
GroupBox4: TGroupBox;
Query1: TQuery;
DataSource1: TDataSource;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
DataSource2: TDataSource;
Table2: TTable;
DataSource3: TDataSource;
Table2BDEDesigner: TStringField;
Table2BDEDesigner2: TStringField;
Table2BDEDesigner3: TStringField;
Table1BDEDesigner3: TStringField;
BitBtn1: TBitBtn;
DBGrid3: TDBGrid;
Table3: TTable;
DataSource4: TDataSource;
Panel1: TPanel;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Table2BDEDesigner4: TStringField;
CheckBox1: TCheckBox;
Query2: TQuery;
Table2BDEDesigner5: TStringField;
Table2BDEDesigner6: TStringField;
Table3BDEDesigner: TStringField;
Table3BDEDesigner2: TStringField;
Table3BDEDesigner3: TStringField;
Table3BDEDesigner4: TStringField;
Table3BDEDesigner5: TStringField;
Table3BDEDesigner6: TStringField;
Table3BDEDesigner7: TStringField;
Table3BDEDesigner8: TStringField;
Table3BDEDesigner9: TStringField;
Table3BDEDesigner10: TStringField;
Table3BDEDesigner11: TDateTimeField;
Table3BDEDesigner12: TDateTimeField;
Table3BDEDesigner13: TDateTimeField;
Table3BDEDesigner14: TDateTimeField;
Table3BDEDesigner15: TStringField;
Table3BDEDesigner16: TStringField;
Table3BDEDesigner17: TStringField;
Table3BDEDesigner18: TStringField;
Table3BDEDesigner19: TStringField;
Table3BDEDesigner20: TStringField;
Table3BDEDesigner21: TStringField;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Table2BDEDesigner7: TFloatField;
Table2BDEDesigner8: TFloatField;
Table2BDEDesigner9: TFloatField;
Table2BDEDesigner10: TFloatField;
Edit1: TEdit;
SpeedButton1: TSpeedButton;
Table2BDEDesigner11: TStringField;
Table2BDEDesigner12: TStringField;
BitBtn6: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
YZXXDJ: TYZXXDJ;
implementation
uses MC_FWXXDJ, MC_YZXXLL, MC_MainForm, MC_ZHCKXX;
{$R *.DFM}
//在窗體初始化時判斷操作員的權限
procedure TYZXXDJ.FormShow(Sender: TObject);
begin
DBLookupComboBox1.KeyValue:=Query1.FieldbyName('小區名').AsString;
if MainForm.Query1.Locate('使用選項','業主信息登記',[loCaseInsensitive]) then
begin
if MainForm.query1.FieldByname('讀寫').AsString='讀' then
begin
BitBtn2.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
end;
end;
end;
procedure TYZXXDJ.DBGrid2DblClick(Sender: TObject); //選擇業主信息
begin
If Table2.RecordCount <> 0 Then //如果房屋信息不為空
If Table3.RecordCount <> 0 Then //如果業主信息不為空
if not Table3.Locate('購入房編號',Table2.FieldByName('房間編號').AsString,[loCaseInsensitive]) then
begin
ShowMessage('沒有發現此房業主信息.');
end;
end;
procedure TYZXXDJ.BitBtn1Click(Sender: TObject); //查看房屋詳細信息
begin
If Table2.RecordCount <> 0 Then
If Not Assigned(FWXXDJ) Then
begin
FWXXDJ:=TFWXXDJ.Create(Self);
FWXXDJ.Query1.Locate('房間編號',Table2.FieldByName('房間編號').AsString,[loCaseInsensitive]);
FWXXDJ.ShowModal;
End
Else
begin
FWXXDJ.Query1.Locate('房間編號',Table2.FieldByName('房間編號').AsString,[loCaseInsensitive]);
FWXXDJ.ShowModal;
end;
end;
procedure TYZXXDJ.BitBtn2Click(Sender: TObject); //添加新業主
begin
If Table2.RecordCount = 0 Then //如果房屋信息
begin
ShowMessage('請選擇業主登記的房屋信息');
End
Else
if Table2.FieldByName('是否空閑').AsString='居住' then //如果此房間已有人居住，提示
ShowMessage('此房已有業主居住')
Else
if Table2.FieldByName('是否空閑').AsSTring='出租' then //如果此房間已出租，提示
ShowMessage('此房已經出租')
Else
if Table2.FieldByName('是否空閑').AsString='空閑' then //如果房間空閑，調入業主登記窗體
If Not Assigned(YZXXLL) Then
begin
YZXXLL:=TYZXXLL.Create(Self);
YZXXLL.ComboBox1.ItemIndex:=0;
YZXXLL.ComboBox2.ItemIndex:=0;
YZXXLL.Label19.Caption:=DBLookupComboBox1.KeyValue;
YZXXLL.Label20.Caption:=Table1.FieldByName('大樓名稱').AsString;
YZXXLL.Label21.Caption:=Table2.FieldByName('房間號碼').AsString;
YZXXLL.Label22.Caption:=Table2.FieldByName('房間編號').AsString;
YZXXLL.Edit1.Text:=Table2.FieldByName('房間編號').AsString;
YZXXLL.ShowModal;
end;
end;
procedure TYZXXDJ.CheckBox1Click(Sender: TObject); //選擇房屋信息顯示方式（空閑和非空閑）
begin
If CheckBox1.Checked = True Then Table2.Filtered:=True ELSE Table2.Filtered:=False;
end;
//選擇刪除業主信息時，將刪除業主信息，同時將人口信息（家庭成員）、費用信息刪除，房屋信息的房主信息清除。
procedure TYZXXDJ.BitBtn4Click(Sender: TObject); //刪除業主信息
begin
If Table3.RecordCount <> 0 Then //判斷業主信息是否為空
if MessageDLg('確認刪除['+Table3.FieldByName('業主姓名').AsString+']的信息？'
,mtCustom,[mbYes,mbNo],0)=mrYes then
begin
if Table2.Locate('房間編號',Table3.FieldbyName('購入房編號').AsString,[loCaseInsensitive]) then
begin
Table2.Edit;
Table2.FieldByName('房主代號').AsString:=''; //清除房主代號
Table2.FieldByName('房主姓名').AsString:=''; //清除房主姓名
Table2.FieldByName('是否空閑').AsString:='空閑'; //設置房屋為空閑房
Table2.Post;
End
else Exit;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 人口信息 Where 房間代號=:A'); //刪除業主家庭成員信息
Query2.ParamByName('A').AsSTring:=Table3.FieldByName('購入房編號').AsString;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 水費 Where 水表編號=:A'); //刪除水費信息
Query2.ParamByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 電費 Where 電表編號=:A'); //刪除電費信息
Query2.ParamByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 煤氣費 Where 煤氣表編號=:A'); //刪除煤氣費信息
Query2.ParamByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 采暖費 Where 采暖費編號=:A'); //刪除采暖費費信息
Query2.ParamByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 常用費用 where 收費編號=:A'); //刪除常用費信息
Query2.paramByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Query2.CLose;
Query2.SQL.Clear;
Query2.SQL.Add('Delete 其它費用表 Where 收費編號=:A'); //刪除其它費信息
Query2.paramByName('A').AsString:=Table3.FieldbyName('購入房編號').AsString;
Query2.ExecSQL;
Table3.Delete;
end;
end;
procedure TYZXXDJ.BitBtn3Click(Sender: TObject); //修改業主信息
begin
If Table3.RecordCount <> 0 Then
If Not Assigned(YZXXLL) Then
begin
YZXXLL:=TYZXXLL.Create(Self);
YZXXLL.BitBtn2.Caption:='確定保存[&A]';
YZXXLL.Edit2.Text:=Table3.FieldByName('業主姓名').AsString;
YZXXLL.Edit4.Text:=Table3.FieldByName('聯系地址').AsString;
YZXXLL.Edit3.Text:=Table3.FieldByName('手機').AsString;
YZXXLL.Edit8.Text:=Table3.FieldByName('傳呼').AsString;
YZXXLL.Edit10.Text:=Table3.FieldByName('工作單位').AsString;
YZXXLL.Edit11.Text:=Table3.FieldByName('單位電話').AsString;
YZXXLL.Edit5.Text:=Table3.FieldByName('證件名').AsString;
YZXXLL.Edit9.Text:=Table3.FieldByName('證件號').AsString;
YZXXLL.Edit6.Text:=Table3.FieldByName('購房合同書編號').AsString;
YZXXLL.Edit7.Text:=Table3.FieldByName('管理協議書編號').AsString;
YZXXLL.Label19.Caption:=Table3.FieldByName('小區名').AsString;
YZXXLL.Label20.Caption:=Table3.FieldByName('大樓名').AsString;
YZXXLL.Label21.Caption:=Table3.FieldByName('房間號').AsString;
YZXXLL.Label22.Caption:=Table3.FieldByName('購入房編號').AsString;
YZXXLL.Edit1.Text:=Table3.FieldByName('購入房編號').AsString;
if Table3.FieldByName('性別').AsString='男' then YZXXLL.ComboBox1.ItemIndex:=0
else YZXXLL.ComboBox1.ItemIndex:=1;
if Table3.FieldByName('是否進住').AsString='已進住' then YZXXLL.ComboBox2.ItemIndex:=0
else YZXXLL.ComboBox2.ItemIndex:=1;
YZXXLL.DateTimePicker1.Date:=Table3.FieldByName('簽約日期').AsDateTime;
YZXXLL.DateTimePicker2.Date:=Table3.FieldByName('進住日期').AsDateTime;
YZXXLL.DateTimePicker3.Date:=Table3.FieldByName('進住起始日期').AsDateTime;
YZXXLL.DateTimePicker4.Date:=Table3.FieldByName('進住截止日期').AsDateTime;
YZXXLL.ShowModal;
end;
end;
procedure TYZXXDJ.RadioButton3Click(Sender: TObject); //選擇顯示業主進住情況
begin
If RadioButton1.Checked Then //顯示進住業主信息
begin
Table3.Filter:=Format('是否進住'+'='+'''%s''',['已進住']);
Table3.Filtered:=True;
end;
If RadioButton2.Checked Then //顯示未進住業主信息
begin
Table3.Filter:=Format('是否進住'+'='+'''%s''',['未進住']);
Table3.Filtered:=True;
end;
If RadioButton3.Checked Then //顯示全部業主信息
begin
Table3.Filtered:=False;
end;
end;
procedure TYZXXDJ.SpeedButton1Click(Sender: TObject); //查找房屋信息
begin
If Length(Edit1.Text) <> 0 Then
if Not Table2.Locate('房間編號',Edit1.Text,[loPartialKey]) then
ShowMessage('對不起，沒有找到？');
end;
procedure TYZXXDJ.BitBtn6Click(Sender: TObject); //修改住戶存款信息
begin
If Table3.RecordCount <> 0 Then //如果住戶存款信息不為空
If Not Assigned(ZHCKXX) Then
begin
ZHCKXX:=TZHCKXX.Create(Self);
ZHCKXX.Query1.Close;
ZHCKXX.Query1.SQL.Clear;
ZHCKXX.Query1.SQL.Add('Select * From 其它費用表');
ZHCKXX.Query1.SQL.Add('Where 收費編號=:A');
ZHCKXX.Query1.ParamByName('A').AsString:=Table3.FieldByName('業主代號').AsString;
ZHCKXX.Query1.Open;
ZHCKXX.Query2.Close;
ZHCKXX.Query2.SQL.Clear;
ZHCKXX.Query2.SQL.Add('Select * From 常用費用');
ZHCKXX.Query2.SQL.Add('Where 收費編號=:A');
ZHCKXX.Query2.ParamByName('A').AsString:=Table3.FieldByName('業主代號').AsString;
ZHCKXX.Query2.Open;
ZHCKXX.ShowModal;
end;
end;
procedure TYZXXDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
YZXXDJ.Release;
YZXXDJ:=Nil;
end;
procedure TYZXXDJ.BitBtn5Click(Sender: TObject);
begin
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -