【delphi开源代码栏目提醒】:本文主要为网学会员提供MC_DLXXSCQ.pas,希望对需要MC_DLXXSCQ.pas网友有所帮助,学习一下!
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.