mc_xqscq.~pas

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

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.