mc_rkxxcx.~pas

这是用Delphi编写的小区物业管理系统

unit MC_RKXXCX;

interface

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

type
  TRKXXCX = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    DataSource2: TDataSource;
    Table1: TTable;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner7: TStringField;
    Table2: TTable;
    DataSource3: TDataSource;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner18: TStringField;
    Table2BDEDesigner5: TStringField;
    GroupBox5: TGroupBox;
    DBGrid3: TDBGrid;
    Query2: TQuery;
    DataSource4: TDataSource;
    GroupBox6: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    Query2BDEDesigner: TStringField;
    Query2BDEDesigner2: TStringField;
    Query2BDEDesigner3: TStringField;
    Query2BDEDesigner4: TDateTimeField;
    Query2BDEDesigner5: TStringField;
    Query2BDEDesigner6: TStringField;
    Query2BDEDesigner7: TStringField;
    Query2BDEDesigner8: TStringField;
    Query2BDEDesigner9: TStringField;
    Query2BDEDesigner10: TStringField;
    Query2BDEDesigner11: TStringField;
    Query2BDEDesigner12: TStringField;
    Query2BDEDesigner13: TStringField;
    Query2BDEDesigner14: TStringField;
    Query2BDEDesigner15: TStringField;
    Query2BDEDesigner16: TStringField;
    Query2BDEDesigner17: TStringField;
    Query2BDEDesigner18: TStringField;
    Query2BDEDesigner19: TStringField;
    Query2BDEDesigner20: TStringField;
    Query2BDEDesigner21: TStringField;
    Query2BDEDesigner22: TStringField;
    Query2BDEDesigner23: TStringField;
    Query2BDEDesigner24: TStringField;
    Query2BDEDesigner25: TStringField;
    Query2BDEDesigner26: TStringField;
    Query2BDEDesigner27: TStringField;
    Query2BDEDesigner28: TMemoField;
    Query2BDEDesigner29: TBlobField;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Table1BDEDesigner: TStringField;
    Table2BDEDesigner7: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RKXXCX: TRKXXCX;

implementation

uses MC_RKXX, MC_MainForm;

{$R *.DFM}

procedure TRKXXCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     RKXXCX.Release;
     RKXXCX:=Nil;
end;

procedure TRKXXCX.DBLookupComboBox1Click(Sender: TObject);
begin
     Query2.Close;
     Query2.SQL.Clear;
     Query2.SQL.Add('Select * From 人口信息 Where 小区名=DBLookupComboBox1.KeyValue');
    // Query2.SQL.Add('Where 小区名=:A');
    // Query2.ParamByName('A').AsSTring:=DBLookupComboBox1.KeyValue;
     Query2.Open;
end;

procedure TRKXXCX.DBGrid1CellClick(Column: TColumn);
begin
     Query2.Close;
     Query2.SQL.Clear;
     Query2.SQL.Add('Select * From 人口信息');
     Query2.SQL.Add('Where 小区名=:A and 大楼名称=:B');
     Query2.ParamByName('A').AsSTring:=DBLookupComboBox1.KeyValue;
     Query2.ParamByName('B').AsSTring:=Table1.FieldByName('大楼名称').AsString;
     Query2.Open;
end;

procedure TRKXXCX.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 TRKXXCX.BitBtn3Click(Sender: TObject);
begin
     Close;
end;

procedure TRKXXCX.BitBtn4Click(Sender: TObject);
begin
     if Length(Edit1.Text)=0 then
        begin
             ShowMessage('请输入查询信息.');
             Edit1.SetFocus;
        end
     else
        begin
             if ComboBox2.Text='Like' then
                begin
                     if Edit1.Text='*' then
                        begin
                             Query2.Close;
                             Query2.SQL.Clear;
                             Query2.SQL.Add('Select * From 人口信息');
                             Query2.Open;
                        end
                     else
                        begin
                             Query2.Close;
                             Query2.SQL.Clear;
                             Query2.SQL.Add('Select * From 人口信息');
                             Query2.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
                                            ' Like '''+Edit1.Text+'%''');
                             Query2.Open;
                        end;
                end
             else
             if ComboBox2.Text='=' then
                begin
                     Query2.Close;
                     Query2.SQL.Clear;
                     Query2.SQL.Add('Select * From 人口信息');
                     Query2.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
                           ' = '''+Edit1.Text+'''');
                     Query2.Open;
                end
             else
             if ComboBox2.Text='>' then
                begin
                     Query2.Close;
                     Query2.SQL.Clear;
                     Query2.SQL.Add('Select * From 人口信息');
                     Query2.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
                           ' > '''+Edit1.Text+'''');
                     Query2.Open;
                end
             else
                begin
                     Query2.Close;
                     Query2.SQL.Clear;
                     Query2.SQL.Add('Select * From 人口信息');
                     Query2.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
                           ' < '''+Edit1.Text+'''');
                     Query2.Open;
                end;
        end;
end;

procedure TRKXXCX.FormShow(Sender: TObject);
begin
     DBLookupComboBox1.KeyValue:=Query1.FieldbyName('小区名').AsString;
     ComboBox1.ItemIndex:=0;
     ComboBox2.ItemIndex:=0;
     if MainForm.Query1.Locate('使用选项','人口信息查询',[loCaseInsensitive]) then
        begin
             if MainForm.Query1.FieldByname('读写').AsString='读' then
                begin
                     BitBtn1.Enabled:=False;
                     BitBtn2.Enabled:=False;
                end;
        end;
end;

procedure TRKXXCX.BitBtn1Click(Sender: TObject);
begin
     if Query2.Active=True then
     if Query2.RecordCount<>0 then
     if not Assigned(RKXX) then
        begin
             RKXX:=TRKXX.Create(Self);
             RKXXCX.Query2.Edit;
             RKXX.ShowModal;
        end;
end;

procedure TRKXXCX.BitBtn2Click(Sender: TObject);
begin
     if Query2.Active=True then
     if Query2.RecordCount<>0 then
     if MessageDLG('是否删除['+Query2.FieldbyName('姓名').AsString+']的信息?'
         ,mtCustom,[mbYes,mbNo],0)=mrYes then
         Query2.Delete;
end;

procedure TRKXXCX.N1Click(Sender: TObject);
var a:String;
begin
     if Query2.Active then
     if Query2.RecordCount<>0 then
        begin
             a:=Query2.FieldByName('房间代号').AsString;
             Query2.Close;
             Query2.SQL.Clear;
             Query2.SQL.Add('Select * From 人口信息');
             Query2.SQL.Add('Where 房间代号=:A and 与户主关系=''户主''');
             Query2.ParamByName('A').AsString:=a;
             Query2.Open;
        end;


end;

end.