mc_dlxxscq.~pas

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

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.