unit MC_DLXXSCQ;

interface

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

type
  TDLXXSCQ = class(TForm)
    GroupBox1: TGroupBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    UpDown1: TUpDown;
    Label6: TLabel;
    Edit6: TEdit;
    UpDown2: TUpDown;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query2: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DLXXSCQ: TDLXXSCQ;

implementation

uses MC_MainForm;

{$R *.DFM}
procedure TDLXXSCQ.FormShow(Sender: TObject);
begin
  DBLookupComboBox1.KeyValue:=Query1.FieldByName('小區名').AsString;
  if MainForm.Query1.Locate('使用選項','大樓信息生成',[loCaseInsensitive]) then
    begin
     if MainForm.Query1.FieldByName('讀寫').AsString='讀' then    //設置權限
      begin
        bitBtn1.Enabled:=False;
      end;
    end;
end;
procedure TDLXXSCQ.BitBtn1Click(Sender: TObject);    //生成大樓信息
var a:integer;
begin
 if MessageDLG('確認生成［編號為'+Edit1.Text+'至'+Edit6.Text+'］的大樓信息嗎？'
 ,mtCustom,[mbYes,mbNO],0)=mrYes then
 begin
   For a:=StrToInt(Edit1.Text) to StrToInt(Edit6.Text) do
   begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('Insert 大樓信息表(大樓編號,大樓名稱,大樓說明,大樓位置,負責人,所屬區域)');
    Query2.SQL.Add('values(:A,:B,:C,:D,:E,:F)');
    Query2.ParamByName('A').AsString:=DBLookupComboBox1.KeyValue+IntToStr(a);
    Query2.ParamByName('B').AsString:=Edit2.Text+IntToStr(a);
    Query2.ParamByName('C').AsString:=Edit3.Text;
    Query2.ParamByName('D').AsString:=Edit4.Text;
    Query2.ParamByName('E').AsString:=Edit5.Text;
    Query2.ParamByName('F').AsString:=DBLookupComboBox1.KeyValue;
    Try
     Query2.ExecSQL;    //插入大樓信息
    Except
     ShowMessage('大樓編號重復.');
    end;
   end;
   ShowMessage('生成完畢');
   Close;
 end;
end;

procedure TDLXXSCQ.BitBtn2Click(Sender: TObject);
begin
     Close;
end;

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