mc_yzxxcx.pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.