unit MC_YZXXCX;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, Grids, DBGrids, DBCtrls, StdCtrls, Buttons;

type
  TYZXXCX = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox4: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    Table2: TTable;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner18: TStringField;
    Table2BDEDesigner5: TStringField;
    DataSource3: TDataSource;
    Query2: TQuery;
    DataSource4: TDataSource;
    Query2BDEDesigner: TStringField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TStringField;
    Query2BDEDesigner5: TStringField;
    Query2BDEDesigner6: TStringField;
    Query2BDEDesigner7: TStringField;
    Query2BDEDesigner8: TStringField;
    Query2BDEDesigner9: TStringField;
    Query2BDEDesigner10: TStringField;
    Query2BDEDesigner11: TDateTimeField;
    Query2BDEDesigner12: TDateTimeField;
    Query2BDEDesigner13: TDateTimeField;
    Query2BDEDesigner14: TDateTimeField;
    Query2BDEDesigner15: TStringField;
    Query2BDEDesigner16: TStringField;
    Query2BDEDesigner17: TStringField;
    Query2BDEDesigner18: TStringField;
    Query2BDEDesigner19: TStringField;
    Query2BDEDesigner20: TStringField;
    Query2BDEDesigner21: TStringField;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YZXXCX: TYZXXCX;

implementation

uses MC_YZEdit, MC_YZXXLL;

{$R *.DFM}

procedure TYZXXCX.FormShow(Sender: TObject);   //初始化
begin
  DBLookupComboBox1.KeyValue:=Query1.FieldByName('小區名').AsString;
  ComboBox1.ItemIndex:=0;
  ComboBox2.ItemIndex:=0;
end;
procedure TYZXXCX.DBLookupComboBox1Click(Sender: TObject);  //選擇小區
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select * From 業主信息表 Where 小區名=:A');
  Query2.ParamByName('A').AsSTring:=DBLookupComboBox1.KeyValue;
  Query2.Open;
end;

procedure TYZXXCX.DBGrid1CellClick(Column: TColumn);  //選擇大樓
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select * From 業主信息表 Where 小區名=:A and 大樓名=:B');
  Query2.ParamByName('A').AsSTring:=DBLookupComboBox1.KeyValue;
  Query2.ParamByName('B').AsSTring:=Table1.FieldByName('大樓名稱').AsString;
  Query2.Open;
end;

procedure TYZXXCX.DBGrid2CellClick(Column: TColumn);  //選擇房間
begin
  Query2.Close;
  Query2.SQL.Clear;
  Query2.SQL.Add('Select * From 業主信息表');
  Query2.SQL.Add('Where 小區名=:A and 大樓名=:B and 房間號=:C');
  Query2.ParamByName('A').AsSTring:=DBLookupComboBox1.KeyValue;
  Query2.ParamByName('B').AsSTring:=Table1.FieldByName('大樓名稱').AsString;
  Query2.ParamByName('C').AsSTring:=Table2.FieldByName('房間號碼').AsString;
  Query2.Open;
end;

procedure TYZXXCX.BitBtn4Click(Sender: TObject);   //查詢業主信息
begin
  if ComboBox2.Text='Like' then   //查詢條件為“LIKE”
  if Edit1.Text='*' then       //查詢所有業主信息
  with Query2 do begin
     Close;
     SQL.Clear;
     SQL.Add('Select * From 業主信息表');
     Open; end
  Else
   with Query2 do Begin
     Close;
     SQL.clear;
     SQL.Add('Select * From 業主信息表');
     SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' Like '''
             +Edit1.Text+'%''');
     Open;
     end;
  if comboBox2.Text='=' then      //查詢條件為“=”
   with Query2 do begin
     close;
     SQL.Clear;
     SQl.Add('Select * From 業主信息表 ');
     SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+ '= ''' +Edit1.Text+'''');
     Open; end;
  if ComboBox2.Text='>' then      //查詢條件為“>”
   With Query2 do begin
     Close;
     SQL.Clear;
     SQL.Add('Select * From 業主信息表');
     SQL.Add('Where '+comboBox1.Items[ComboBox1.ItemIndex]+' > '''+Edit1.Text+'''');
     Open; end;
  if ComboBox2.Text='<' then       //查詢條件為“<'
   with Query2 do Begin
     Close;
     SQL.Clear;
     SQL.Add('Select * From 業主信息表');
     SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+' < '''  +Edit1.Text+'''');
     Open; end;
end;


procedure TYZXXCX.DBGrid3DblClick(Sender: TObject);   //編輯業主信息
begin
  If Query2.Active Then
  If Query2.RecordCount <> 0 Then
  If Not Assigned(YZEdit) Then
  begin
    YZEdit:=TYZEdit.Create(Self);
    YZEdit.Label19.Caption:=Query2.FieldByName('小區名').AsString;
    YZEdit.Label20.Caption:=Query2.FieldByName('大樓名').AsString;
    YZEdit.Label21.Caption:=Query2.FieldByname('房間號').asString;
    YZEdit.Label22.Caption:=Query2.FieldByname('購入房編號').asString;
    YZEDit.Edit1.Text:=Query2.FieldByname('業主代號').AsString;
    YZEDit.Edit2.Text:=Query2.FieldByname('業主姓名').AsString;
    YZEdit.ComboBox1.Text:=Query2.FieldByname('性別').AsSTring;
    YZEdit.Edit3.Text:=Query2.FieldByName('手機').AsString;
    YZEdit.Edit8.Text:=Query2.FieldByName('傳呼').AsString;
    YZEdit.Edit4.Text:=Query2.FieldByName('聯系地址').AsString;
    YZEdit.Edit11.Text:=Query2.FieldByName('單位電話').AsString;
    YZEdit.DateTimePicker1.Date:=Query2.FieldByName('簽約日期').AsDateTime;
    YZEdit.DateTimePicker2.Date:=Query2.FieldByName('進住日期').AsDateTime;
    YZEdit.DateTimePicker3.Date:=Query2.FieldByName('進住起始日期').AsDateTime;
    YZEdit.DateTimePicker4.Date:=Query2.FieldByName('進住截止日期').AsDateTime;
    YZEdit.ComboBox2.Text:=Query2.FieldByName('是否進住').AsString;
    YZEdit.Edit6.Text:=Query2.Fieldbyname('管理協議書編號').AsString;
    YZEdit.Edit7.Text:=Query2.FieldByname('購房合同書編號').AsString;
    YZEdit.Edit5.Text:=Query2.FieldByName('證件名').AsString;
    YZEDit.Edit9.Text:=Query2.FieldByName('證件號').AsString;
    YZEDit.Edit10.Text:=Query2.FieldByname('工作單位').AsString;
    YZEdit.Table1.Filter:=Format('房間代號'+'='+'''%S''',[YZEdit.Label22.Caption]);
    YZEdit.Table1.Filtered:=True;
    YZEdit.Table1.Open;
    YZEdit.ShowModal;
  end;
end;
procedure TYZXXCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   YZXXCX.Release;
   YZXXCX:=Nil;
end;
end.