?? mc_fwxxdj.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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -