mc_dllist.pas

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

unit MC_DLList;

interface

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

type
  TDLList = class(TForm)
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource1: TDataSource;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    Table2: TTable;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner5: TIntegerField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TStringField;
    GroupBox3: TGroupBox;
    ListBox1: TListBox;
    Table2BDEDesigner: TStringField;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DLList: TDLList;

implementation

uses MC_FWXXDJ;

{$R *.DFM}

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

procedure TDLList.BitBtn2Click(Sender: TObject);
var a,b:integer;
begin
     For a:=0 to ListBox1.Items.Count-1 do
     begin
          if ListBox1.Items.Strings[a]=Table2.FieldByName('大楼编号').AsString then
             begin
                  b:=0;
                  Break;
             end else b:=1;
     end;
     if b=0 then
        begin
             ShowMessage('此大楼以被选种!!');
        end
     else
        begin
             ListBox1.Items.Add(Table2.FieldByName('大楼编号').AsString);
        end;
end;

procedure TDLList.BitBtn4Click(Sender: TObject);
begin
     if ListBox1.Items.Count<>0 then
        begin
             ListBox1.Items.Delete(ListBox1.ItemIndex);
        end;
end;

procedure TDLList.BitBtn3Click(Sender: TObject);
begin
     Close;
end;

procedure TDLList.BitBtn1Click(Sender: TObject);
var ZD: String;
    ZDZ: Array of String;
    a:integer;
begin
     if ListBox1.Items.Count=0 then
        begin
             ShowMessage('请选择要浏览的大楼.');
        end
     else
        begin
             if not Assigned(FWXXDJ) then
                begin
                     FWXXDJ:=TFWXXDJ.Create(Self);
                     SetLength(ZDZ,ListBox1.Items.Count);//分配动态变量,记得释放掉
                     ZD:='大楼编号';
                     FWXXDJ.Query1.Close;
                     FWXXDJ.Query1.SQL.Clear;
                     FWXXDJ.Query1.SQL.Add('Select * From 房屋信息表 Where');
                     FWXXDJ.Query1.SQL.Add('大楼编号=:A');
                     FWXXDJ.Query1.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
                     For a:=1 to ListBox1.Items.Count-1 do
                     begin
                          ZDZ[a]:=ListBox1.Items.Strings[a];
                          FWXXDJ.Query1.SQL.Add('or 大楼编号='''+ZDZ[a]+'''');
                          //FWXXDJ.Query1.ParamByName('ZDZ[a]').AsString:=ListBox1.Items.Strings[a];
                     end;
                     ZDZ:=Nil;//释放内存空间
                     FWXXDJ.Query1.SQL.Add('ORDER By 房间编号 ASC');
                     FWXXDJ.Query1.Open;
                     FWXXDJ.ShowModal;
                end
             else FWXXDJ.ShowModal;
        end;
end;

procedure TDLList.FormShow(Sender: TObject);
begin
     DBLookupComboBox1.KeyValue:=Query1.FieldByName('小区名').AsString;
end;

end.