mc_xqlist.~pas

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

unit MC_XQList;

interface

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

type
  TXQList = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    GroupBox2: TGroupBox;
    ListBox1: TListBox;
    BitBtn4: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XQList: TXQList;

implementation

uses MC_DLXXDJ;

{$R *.DFM}

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

procedure TXQList.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(DLXXDJ) then
                begin
                     DLXXDJ:=TDLXXDJ.Create(Self);
                     SetLength(ZDZ,ListBox1.Items.Count);//分配动态变量,记得释放掉
                     ZD:='小区名';
                     DLXXDJ.Query1.Close;
                     DLXXDJ.Query1.SQL.Clear;
                     DLXXDJ.Query1.SQL.Add('Select * From 大楼信息表 Where');
                     DLXXDJ.Query1.SQL.Add('所属区域=:A');
                     DLXXDJ.Query1.ParamByName('A').AsString:=ListBox1.Items.Strings[0];
                     For a:=1 to ListBox1.Items.Count-1 do
                     begin
                          ZDZ[a]:=ListBox1.Items.Strings[a];
                          DLXXDJ.Query1.SQL.Add('or 所属区域='''+ZDZ[a]+'''');
                          //DLXXDJ.Query1.ParamByName('ZDZ[a]').AsString:=ListBox1.Items.Strings[a];
                     end;
                     ZDZ:=Nil;//释放内存空间
                     DLXXDJ.Query1.Open;
                     DLXXDJ.ShowModal;
                end
             else DLXXDJ.ShowModal;
        end;
end;

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

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

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

end.