?? mc_yzxxdj.pas

?? 騰龍物業(yè)管理系統(tǒng).zip 不錯(cuò)的軟件,請(qǐng)大家學(xué)習(xí)
?? PAS
字號(hào):
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}
//在窗體初始化時(shí)判斷操作員的權(quán)限
procedure TYZXXDJ.FormShow(Sender: TObject);
begin
  DBLookupComboBox1.KeyValue:=Query1.FieldbyName('小區(qū)名').AsString;
  if MainForm.Query1.Locate('使用選項(xiàng)','業(yè)主信息登記',[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);  //選擇業(yè)主信息
begin
  If Table2.RecordCount <> 0 Then   //如果房屋信息不為空
  If Table3.RecordCount <> 0 Then   //如果業(yè)主信息不為空
  if not Table3.Locate('購(gòu)入房編號(hào)',Table2.FieldByName('房間編號(hào)').AsString,[loCaseInsensitive]) then
  begin
    ShowMessage('沒有發(fā)現(xiàn)此房業(yè)主信息.');
  end;
end;
procedure TYZXXDJ.BitBtn1Click(Sender: TObject);  //查看房屋詳細(xì)信息
begin
  If Table2.RecordCount <> 0 Then
  If Not Assigned(FWXXDJ) Then
   begin
     FWXXDJ:=TFWXXDJ.Create(Self);
     FWXXDJ.Query1.Locate('房間編號(hào)',Table2.FieldByName('房間編號(hào)').AsString,[loCaseInsensitive]);
     FWXXDJ.ShowModal;
   End
  Else
   begin
     FWXXDJ.Query1.Locate('房間編號(hào)',Table2.FieldByName('房間編號(hào)').AsString,[loCaseInsensitive]);
     FWXXDJ.ShowModal;
   end;
end;
procedure TYZXXDJ.BitBtn2Click(Sender: TObject);   //添加新業(yè)主
begin
  If Table2.RecordCount = 0 Then  //如果房屋信息
  begin
     ShowMessage('請(qǐng)選擇業(yè)主登記的房屋信息');
  End
  Else
  if Table2.FieldByName('是否空閑').AsString='居住' then  //如果此房間已有人居住，提示
     ShowMessage('此房已有業(yè)主居住')
  Else
  if Table2.FieldByName('是否空閑').AsSTring='出租' then   //如果此房間已出租，提示
     ShowMessage('此房已經(jīng)出租')
  Else
  if Table2.FieldByName('是否空閑').AsString='空閑' then   //如果房間空閑，調(diào)入業(yè)主登記窗體
  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('房間號(hào)碼').AsString;
      YZXXLL.Label22.Caption:=Table2.FieldByName('房間編號(hào)').AsString;
      YZXXLL.Edit1.Text:=Table2.FieldByName('房間編號(hào)').AsString;
      YZXXLL.ShowModal;
    end;
end;
procedure TYZXXDJ.CheckBox1Click(Sender: TObject); //選擇房屋信息顯示方式（空閑和非空閑）
begin
  If CheckBox1.Checked = True Then  Table2.Filtered:=True ELSE  Table2.Filtered:=False;
end;
//選擇刪除業(yè)主信息時(shí)，將刪除業(yè)主信息，同時(shí)將人口信息（家庭成員）、費(fèi)用信息刪除，房屋信息的房主信息清除。
procedure TYZXXDJ.BitBtn4Click(Sender: TObject);   //刪除業(yè)主信息
begin
If Table3.RecordCount <> 0 Then  //判斷業(yè)主信息是否為空
if MessageDLg('確認(rèn)刪除['+Table3.FieldByName('業(yè)主姓名').AsString+']的信息？'
,mtCustom,[mbYes,mbNo],0)=mrYes then
begin
if Table2.Locate('房間編號(hào)',Table3.FieldbyName('購(gòu)入房編號(hào)').AsString,[loCaseInsensitive]) then
   begin
    Table2.Edit;
    Table2.FieldByName('房主代號(hào)').AsString:='';   //清除房主代號(hào)
    Table2.FieldByName('房主姓名').AsString:='';   //清除房主姓名
    Table2.FieldByName('是否空閑').AsString:='空閑';    //設(shè)置房屋為空閑房
    Table2.Post;
   End
   else Exit;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 人口信息 Where 房間代號(hào)=:A');  //刪除業(yè)主家庭成員信息
   Query2.ParamByName('A').AsSTring:=Table3.FieldByName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 水費(fèi) Where 水表編號(hào)=:A');  //刪除水費(fèi)信息
   Query2.ParamByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 電費(fèi) Where 電表編號(hào)=:A');   //刪除電費(fèi)信息
   Query2.ParamByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 煤氣費(fèi) Where 煤氣表編號(hào)=:A');   //刪除煤氣費(fèi)信息
   Query2.ParamByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 采暖費(fèi) Where 采暖費(fèi)編號(hào)=:A');       //刪除采暖費(fèi)費(fèi)信息
   Query2.ParamByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.Close;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 常用費(fèi)用 where 收費(fèi)編號(hào)=:A');     //刪除常用費(fèi)信息
   Query2.paramByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Query2.CLose;
   Query2.SQL.Clear;
   Query2.SQL.Add('Delete 其它費(fèi)用表 Where 收費(fèi)編號(hào)=:A');       //刪除其它費(fèi)信息
   Query2.paramByName('A').AsString:=Table3.FieldbyName('購(gòu)入房編號(hào)').AsString;
   Query2.ExecSQL;
   Table3.Delete;
end;
end;
procedure TYZXXDJ.BitBtn3Click(Sender: TObject);    //修改業(yè)主信息
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('業(yè)主姓名').AsString;
    YZXXLL.Edit4.Text:=Table3.FieldByName('聯(lián)系地址').AsString;
    YZXXLL.Edit3.Text:=Table3.FieldByName('手機(jī)').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('證件號(hào)').AsString;
    YZXXLL.Edit6.Text:=Table3.FieldByName('購(gòu)房合同書編號(hào)').AsString;
    YZXXLL.Edit7.Text:=Table3.FieldByName('管理協(xié)議書編號(hào)').AsString;
    YZXXLL.Label19.Caption:=Table3.FieldByName('小區(qū)名').AsString;
    YZXXLL.Label20.Caption:=Table3.FieldByName('大樓名').AsString;
    YZXXLL.Label21.Caption:=Table3.FieldByName('房間號(hào)').AsString;
    YZXXLL.Label22.Caption:=Table3.FieldByName('購(gòu)入房編號(hào)').AsString;
    YZXXLL.Edit1.Text:=Table3.FieldByName('購(gòu)入房編號(hào)').AsString;
    if Table3.FieldByName('性別').AsString='男' then YZXXLL.ComboBox1.ItemIndex:=0
    else YZXXLL.ComboBox1.ItemIndex:=1;
    if Table3.FieldByName('是否進(jìn)住').AsString='已進(jìn)住' then YZXXLL.ComboBox2.ItemIndex:=0
    else YZXXLL.ComboBox2.ItemIndex:=1;
    YZXXLL.DateTimePicker1.Date:=Table3.FieldByName('簽約日期').AsDateTime;
    YZXXLL.DateTimePicker2.Date:=Table3.FieldByName('進(jìn)住日期').AsDateTime;
    YZXXLL.DateTimePicker3.Date:=Table3.FieldByName('進(jìn)住起始日期').AsDateTime;
    YZXXLL.DateTimePicker4.Date:=Table3.FieldByName('進(jìn)住截止日期').AsDateTime;
    YZXXLL.ShowModal;
  end;
end;
procedure TYZXXDJ.RadioButton3Click(Sender: TObject);  //選擇顯示業(yè)主進(jìn)住情況
begin
 If RadioButton1.Checked Then   //顯示進(jìn)住業(yè)主信息
   begin
    Table3.Filter:=Format('是否進(jìn)住'+'='+'''%s''',['已進(jìn)住']);
    Table3.Filtered:=True;
   end;
 If RadioButton2.Checked Then    //顯示未進(jìn)住業(yè)主信息
   begin
    Table3.Filter:=Format('是否進(jìn)住'+'='+'''%s''',['未進(jìn)住']);
    Table3.Filtered:=True;
   end;
 If RadioButton3.Checked Then   //顯示全部業(yè)主信息
   begin
    Table3.Filtered:=False;
   end;
end;
procedure TYZXXDJ.SpeedButton1Click(Sender: TObject);   //查找房屋信息
begin
  If Length(Edit1.Text) <> 0 Then
  if Not Table2.Locate('房間編號(hào)',Edit1.Text,[loPartialKey]) then
     ShowMessage('對(duì)不起，沒有找到？');
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 其它費(fèi)用表');
    ZHCKXX.Query1.SQL.Add('Where 收費(fèi)編號(hào)=:A');
    ZHCKXX.Query1.ParamByName('A').AsString:=Table3.FieldByName('業(yè)主代號(hào)').AsString;
    ZHCKXX.Query1.Open;
    ZHCKXX.Query2.Close;
    ZHCKXX.Query2.SQL.Clear;
    ZHCKXX.Query2.SQL.Add('Select * From 常用費(fèi)用');
    ZHCKXX.Query2.SQL.Add('Where 收費(fèi)編號(hào)=:A');
    ZHCKXX.Query2.ParamByName('A').AsString:=Table3.FieldByName('業(yè)主代號(hào)').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.
?? 文件大小 8190 K
?? 上傳用戶 a215290209
?? 所屬分類其他行業(yè)
??? 相關(guān)標(biāo)簽

#zip #物業(yè)管理 #家
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mc_yzxxdj.pas

?? 快捷鍵說(shuō)明
