unit MC_XQSCQ;

interface

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

type
  TXQSCQ = class(TForm)
    GroupBox1: TGroupBox;
    Label7: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    Label6: TLabel;
    Edit2: TEdit;
    UpDown2: TUpDown;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: 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
XQSCQ: TXQSCQ;

implementation

uses MC_DLList, MC_XQXXDJ, MC_MainForm;

{$R *.DFM}

procedure TXQSCQ.BitBtn1Click(Sender: TObject);  //生成小區
var a:integer;
begin
  if MessageDLG('確認生成［編號為'+Edit1.Text+'至'+Edit2.Text+'］的小區嗎？',mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
    For a:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do  //按輸入編號生成小區編號
    begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Insert 小區信息表(小區編號) values(:A)');
   // Query1.SQL.Add('values(:A)');
    Query1.ParamByName('A').AsString:=IntToStr(a);
    Try
      Query1.ExecSQL;
    Except
      ShowMessage('小區編號重復.');
    end;
    end;
    ShowMessage('生成完畢');
    Close;
    If Not Assigned(XQXXDJ) Then
    begin
      XQXXDJ:=TXQXXDJ.Create(Self);
      XQXXDJ.ShowModal;    //調入小區信息登記窗體
    end;
  end;
end;

procedure TXQSCQ.FormShow(Sender: TObject);
begin
  if MainForm.Query1.Locate('使用選項','小區信息生成',[loCaseInsensitive]) then   //判斷是否有生成小區的權限
  if MainForm.query1.FieldByName('讀寫').AsString='讀' then  BitBtn1.Enabled:=False;
end;
procedure TXQSCQ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  XQSCQ.Release;
  XQSCQ:=Nil;
end;
procedure TXQSCQ.BitBtn2Click(Sender: TObject);
begin
  Close;
end;
end.