?? mc_dllist.~pas
字號(hào):
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('大樓編號(hào)').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('大樓編號(hào)').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('請(qǐng)選擇要瀏覽的大樓.');
end
else
begin
if not Assigned(FWXXDJ) then
begin
FWXXDJ:=TFWXXDJ.Create(Self);
SetLength(ZDZ,ListBox1.Items.Count);//分配動(dòng)態(tài)變量,記得釋放掉
ZD:='大樓編號(hào)';
FWXXDJ.Query1.Close;
FWXXDJ.Query1.SQL.Clear;
FWXXDJ.Query1.SQL.Add('Select * From 房屋信息表 Where');
FWXXDJ.Query1.SQL.Add('大樓編號(hào)=: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 大樓編號(hào)='''+ZDZ[a]+'''');
//FWXXDJ.Query1.ParamByName('ZDZ[a]').AsString:=ListBox1.Items.Strings[a];
end;
ZDZ:=Nil;//釋放內(nèi)存空間
FWXXDJ.Query1.Open;
FWXXDJ.ShowModal;
end
else FWXXDJ.ShowModal;
end;
end;
procedure TDLList.FormShow(Sender: TObject);
begin
DBLookupComboBox1.KeyValue:=Query1.FieldByName('小區(qū)名').AsString;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -