📄 mc_fwxxdj.pas

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

interface

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

type
  TFWXXDJ = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    Label15: TLabel;
    DBEdit15: TDBEdit;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    Label17: TLabel;
    DBEdit17: TDBEdit;
    Label19: TLabel;
    DBMemo1: TDBMemo;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table2: TTable;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TIntegerField;
    Table1BDEDesigner6: TStringField;
    Table2BDEDesigner3: TStringField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner5: TStringField;
    Table2BDEDesigner6: TIntegerField;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Query1BDEDesigner6: TStringField;
    Query1BDEDesigner7: TStringField;
    Query1BDEDesigner8: TStringField;
    Query1BDEDesigner9: TStringField;
    Query1BDEDesigner10: TStringField;
    Query1BDEDesigner11: TStringField;
    Query1BDEDesigner12: TStringField;
    Query1BDEDesigner13: TStringField;
    Query1BDEDesigner14: TFloatField;
    Query1BDEDesigner15: TFloatField;
    Query1BDEDesigner16: TFloatField;
    Query1BDEDesigner17: TFloatField;
    Query1BDEDesigner18: TStringField;
    Query1BDEDesigner19: TMemoField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    DataSource4: TDataSource;
    DBLookupComboBox3: TDBLookupComboBox;
    Query2: TQuery;
    Query2BDEDesigner: TStringField;
    DataSource5: TDataSource;
    Query3: TQuery;
    Query3BDEDesigner: TStringField;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DataSource6: TDataSource;
    Query4: TQuery;
    Query4BDEDesigner: TStringField;
    DBLookupComboBox6: TDBLookupComboBox;
    DataSource7: TDataSource;
    Query5: TQuery;
    Query5BDEDesigner: TStringField;
    DBLookupComboBox7: TDBLookupComboBox;
    DataSource8: TDataSource;
    Query6: TQuery;
    Query6BDEDesigner: TStringField;
    Query6BDEDesigner2: TBooleanField;
    Query6BDEDesigner3: TBooleanField;
    Query6BDEDesigner4: TBooleanField;
    Query6BDEDesigner5: TBooleanField;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DataSource9: TDataSource;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Query1BDEDesigner20: TStringField;
    Query1BDEDesigner21: TStringField;
    DBComboBox1: TDBComboBox;
    Query1BDEDesigner22: TStringField;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit4Exit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBLookupComboBox7Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
    procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FWXXDJ: TFWXXDJ;

implementation

uses MC_Data, MC_FWLL, MC_MainForm;

{$R *.DFM}
procedure TFWXXDJ.FormShow(Sender: TObject);
begin     //判断操作员是否有进行房屋信息登记的权限
if MainForm.Query1.Locate('使用选项','房屋信息登记',[loCaseInsensitive]) then
 begin
  if MainForm.Query1.FieldbyName('读写').AsString='读' then   //如果权限为读
  begin    // 数据不可添加、修改、删除
   BitBtn1.Enabled:=False;
   BitBtn2.Enabled:=False;
   BitBtn4.Enabled:=False;
  end;
 end;
end;
procedure TFWXXDJ.BitBtn1Click(Sender: TObject); //添加或取消操作
begin
if BitBtn1.Caption='添加[&I]' then   //如果是添加操作
 begin
   Query1.Append;     //添加一条空记录
   GroupBox1.Enabled:=True;  //房屋信息框可用
   BitBtn1.Caption:='取消[&U]';
   BitBtn2.Caption:='保存[&S]';
   BitBtn4.Enabled:=False;  //删除按钮不可用
   BitBtn3.Enabled:=False;  //浏览按钮不可用
   DBNavigator1.Enabled:=False;
   DBLookupComboBox1.SetFocus;
 End
Else
 begin       //取消操作
   GroupBox1.Enabled:=False;    //房屋信息框不可用
   BitBtn1.Caption:='添加[&I]';
   BitBtn2.Caption:='修改[&E]';
   BitBtn4.Enabled:=True;     //删除按钮可用
   BitBtn3.Enabled:=True;     //浏览按钮可用
   DBNavigator1.Enabled:=True;
   Query1.Cancel;  //取消房屋添加或修改
 end;
end;

procedure TFWXXDJ.BitBtn2Click(Sender: TObject);   //修改或保存操作
begin
if BitBtn2.Caption='修改[&E]' then  //如果修改房屋信息
 begin
   Query1.Edit; //处于编辑状态
   GroupBox1.Enabled:=True;    //房屋信息框可用
   BitBtn1.Caption:='取消[&U]';
   BitBtn2.Caption:='保存[&S]';
   BitBtn4.Enabled:=False;      //删除按钮不可用
   BitBtn3.Enabled:=False;      //浏览按钮不可用
   DBNavigator1.Enabled:=False;
   DBLookupComboBox1.SetFocus;
 End
Else   //如果保存房屋信息
 begin
 if (Length(Query1.FieldByName('区名').AsString)=0) or
  (Length(Query1.FieldByName('大楼名').AsString)=0) or
  (Length(Query1.FieldByName('房间号码').AsString)=0) or
  (Length(Query1.FieldByName('房间编号').AsString)=0)then
 begin   //如果输入数据不完整，将提示
   ShowMessage('请将数据信息填写全!!');
 End
Else
 begin
   GroupBox1.Enabled:=False;
   BitBtn1.Caption:='添加[&I]';
   BitBtn2.Caption:='修改[&E]';
   BitBtn4.Enabled:=True;
   BitBtn3.Enabled:=True;
   DBNavigator1.Enabled:=True;
   Query1.FieldByName('大楼编号').AsString:=Table2.FieldByName('大楼编号').AsString;
   Query1.FieldByName('是否空闲').AsString:='空闲';
   Query1.Post;    //提交保存或修改
 end;
 end;
end;

procedure TFWXXDJ.BitBtn4Click(Sender: TObject);  //删除房屋信息操作
begin
  If Query1.RecordCount <> 0 Then
  if MessageDlg('确认删除['+Query1.FieldByName('房间编号').AsString+']的信息吗？'
       ,mtCustom,[mbYes,mbNo],0)=mrYes then
  begin
  if Query1.FieldByName('是否空闲').AsString<>'空闲' then   //如果房屋非空闲
    begin
      showMessage('此房以被使用无法删除.');
    End
  else Query1.Delete;  //如果房屋空闲，删除次房屋
  end;
end;

procedure TFWXXDJ.DBEdit4Exit(Sender: TObject);  //生成房间编号
begin
  Query1.FieldbyName('房间编号').AsString:=Query1.FieldbyName('区名').AsString+Query1
      .FieldbyName('大楼名').AsString+Query1.FieldbyName('房间号码').AsString;
end;

procedure TFWXXDJ.BitBtn3Click(Sender: TObject); //浏览数据
begin
If Not Assigned(FWLL) Then
 begin
   FWLL:=TFWLL.Create(Self);
   FWLL.Show;   //调入浏览数据窗口
 End
else FWLL.Show;
end;

procedure TFWXXDJ.DBLookupComboBox7Exit(Sender: TObject);
begin
   if Query6.FieldByName('建筑面积').AsBoolean then DBEdit14.Enabled:=True
    else DBEdit14.Enabled:=False;
   if Query6.FieldByName('使用面积').AsBoolean then DBEdit15.Enabled:=True
    else DBEdit15.Enabled:=False;
   if Query6.FieldByName('公有面积').AsBoolean then DBEdit16.Enabled:=True
    else DBEdit16.Enabled:=False;
   if Query6.FieldByName('私有面积').AsBoolean then DBEdit17.Enabled:=True
    else DBEdit17.Enabled:=False;
end;

procedure TFWXXDJ.DBLookupComboBox1KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);  //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox2KeyPress(Sender: TObject;var Key: Char);
begin
   if key=#13 then  DBEDIT4.SetFocus;    //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox3KeyPress(Sender: TObject;  var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);     //焦点跳转
end;

procedure TFWXXDJ.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   IF KEY=#13 THEN DBEDIT10.SetFocus;    //焦点跳转
end;

procedure TFWXXDJ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then DBLookupComboBox7.SetFocus;    //焦点跳转
end;

procedure TFWXXDJ.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then  DBLookupComboBox3.SetFocus;    //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);     //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox5KeyPress(Sender: TObject;var Key: Char);
begin
  if key=#13 then DBEDIT3.SetFocus;      //焦点跳转
end;

procedure TFWXXDJ.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);    //焦点跳转
end;

procedure TFWXXDJ.DBEdit17KeyPress(Sender: TObject; var Key: Char);
begin
  IF KEY=#13 THEN DBCOMBOBOX1.SetFocus ;     //焦点跳转
end;

procedure TFWXXDJ.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);   //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);     //焦点跳转
end;

procedure TFWXXDJ.DBLookupComboBox6KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);     //焦点跳转
end;

procedure TFWXXDJ.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);      //焦点跳转
end;

procedure TFWXXDJ.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

procedure TFWXXDJ.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);     //焦点跳转
end;

procedure TFWXXDJ.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then BITBTN2.SetFocus ;      //焦点跳转
end;

procedure TFWXXDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Assigned(FWLL) then FWLL.Close;      //退出房屋信息登记
  FWXXDJ.Release;
  FWXXDJ:=Nil;
end;
procedure TFWXXDJ.BitBtn5Click(Sender: TObject);
begin
  CLOSE;
end;

end.
💿 文件大小 6534 K
👤 上传用户 a1a1J0
📂 所属分类 *行业应用
🏷️ 相关标签

#Windows #DELPHI #Server #7.0
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -