?? mc_rkxxdj.~pas
字號:
unit MC_RKXXDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtDlgs, Db, DBTables, StdCtrls, Buttons, DBCtrls, ExtCtrls, ComCtrls,
Mask;
type
TRKXXDJ = class(TForm)
GroupBox1: TGroupBox;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label27: TLabel;
DBEdit2: TDBEdit;
DBEdit11: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DateTimePicker1: TDateTimePicker;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
DBLookupComboBox5: TDBLookupComboBox;
DBLookupComboBox6: TDBLookupComboBox;
DBLookupComboBox7: TDBLookupComboBox;
DBMemo1: TDBMemo;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
GroupBox2: TGroupBox;
Bevel1: TBevel;
Shape1: TShape;
DBImage1: TDBImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Query1: TQuery;
Query1BDEDesigner: TStringField;
Query3: TQuery;
Query3BDEDesigner: TStringField;
Query4: TQuery;
Query4BDEDesigner: TStringField;
Query6: TQuery;
Query6BDEDesigner: TStringField;
Query7: TQuery;
Query7BDEDesigner: TStringField;
Query8: TQuery;
Query8BDEDesigner: TStringField;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
DataSource6: TDataSource;
OpenPictureDialog1: TOpenPictureDialog;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
DBNavigator1: TDBNavigator;
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TDateTimeField;
Table1BDEDesigner5: TStringField;
Table1BDEDesigner6: TStringField;
Table1BDEDesigner7: TStringField;
Table1BDEDesigner8: TStringField;
Table1BDEDesigner9: TStringField;
Table1BDEDesigner10: TStringField;
Table1BDEDesigner11: TStringField;
Table1BDEDesigner12: TStringField;
Table1BDEDesigner13: TStringField;
Table1BDEDesigner14: TStringField;
Table1BDEDesigner15: TStringField;
Table1BDEDesigner16: TStringField;
Table1BDEDesigner17: TStringField;
Table1BDEDesigner18: TStringField;
Table1BDEDesigner19: TStringField;
Table1BDEDesigner20: TStringField;
Table1BDEDesigner21: TStringField;
Table1BDEDesigner22: TStringField;
Table1BDEDesigner23: TStringField;
Table1BDEDesigner24: TStringField;
Table1BDEDesigner25: TStringField;
Table1BDEDesigner26: TStringField;
Table1BDEDesigner27: TStringField;
Table1BDEDesigner28: TMemoField;
Table1BDEDesigner29: TBlobField;
DataSource7: TDataSource;
GroupBox3: TGroupBox;
Label26: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DataSource8: TDataSource;
Query2: TQuery;
Query2BDEDesigner: TStringField;
Query2BDEDesigner2: TStringField;
DBLookupComboBox8: TDBLookupComboBox;
DataSource9: TDataSource;
Table2: TTable;
Table2BDEDesigner: TStringField;
Table2BDEDesigner2: TStringField;
Table2BDEDesigner7: TStringField;
DBLookupComboBox9: TDBLookupComboBox;
DataSource10: TDataSource;
Table3: TTable;
Table3BDEDesigner: TStringField;
Table3BDEDesigner2: TStringField;
Table3BDEDesigner3: TStringField;
Table3BDEDesigner4: TStringField;
DBText2: TDBText;
Query5: TQuery;
DBText1: TDBText;
BitBtn7: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBLookupComboBox9Click(Sender: TObject);
procedure DBEdit2Enter(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
private
S:Integer;
{ Private declarations }
public
{ Public declarations }
end;
var
RKXXDJ: TRKXXDJ;
implementation
uses MC_RKXXCX, MC_RKXXLL, MC_MainForm;
{$R *.DFM}
procedure TRKXXDJ.FormShow(Sender: TObject); //窗體啟動時,判斷操作員的權限
begin
if MainForm.Query1.Locate('使用選項','人口信息登記',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldByname('讀寫').AsString='讀' then
begin
BitBtn3.Enabled:=False;
bitbtn4.Enabled:=False;
BitBtn5.Enabled:=False;
end;
end;
end;
procedure TRKXXDJ.DBLookupComboBox9Click(Sender: TObject); //選擇房間號
begin
If Table3.RecordCount <> 0 Then
begin
Query5.Close;
Query5.SQL.Clear;
Query5.SQL.Add('Select * From 人口信息 Where 小區名=:A and 大樓名稱=:B and 房間號=:C');
Query5.ParamByName('A').AsSTring:=Table1.FieldbyName('小區名').AsString;
Query5.ParamByName('B').AsSTring:=Table1.FieldbyName('大樓名稱').AsString;
Query5.ParamByName('C').AsSTring:=Table1.FieldbyName('房間號').AsString;
Query5.Open;
S:=Table1.RecordCount;
Table1.FieldByName('房間代號').AsString:=Table3.FieldbyName('房間編號').AsString;
end;
end;
procedure TRKXXDJ.DBEdit2Enter(Sender: TObject);
begin
If Query5.Active = False Then
begin
ShowMessage('請選擇此人的居住地址');
End
Else
Table1.FieldByName('成員代號').AsString:=IntToStr(S+1);
end;
procedure TRKXXDJ.BitBtn1Click(Sender: TObject); //追加照片
var Picture1:Tpicture;
begin
Picture1:=TPicture.Create;
If OpenPictureDialog1.Execute Then
begin
Picture1.LoadFromFile(OpenPictureDialog1.Filename);
Table1.FieldByName('照片').Assign(Picture1);
end;
end;
procedure TRKXXDJ.BitBtn2Click(Sender: TObject); //刪除照片
begin
Table1.FieldByName('照片').Assign(Nil);
end;
procedure TRKXXDJ.BitBtn3Click(Sender: TObject); // 添加或保存人口信息操作
begin
if BitBtn3.Caption='添加人口信息[&I]' then // 添加人口信息操作
begin
Table1.Insert;
Table1.Fieldbyname('小區名').AsString:=Query2.FieldbyName('小區名').AsString;
Table1.Fieldbyname('大樓名稱').AsString:=Table2.FieldbyName('大樓名稱').AsString;
Table1.Fieldbyname('房間號').AsString:=Table3.FieldbyName('房間號碼').AsString;
BitBtn3.Caption:='保存人口信息[&S]';
BitBtn4.Caption:='取消人口信息[&U]';
BitBtn5.Enabled:=False;
BitBtn6.Enabled:=False;
GroupBox1.Enabled:=True;
GroupBox2.Enabled:=True;
GroupBox3.Enabled:=True;
DBLookupComboBox2.SetFocus;
End
Else //保存人口信息操作
begin
if (Length(Table1.FieldbyName('姓名').AsString)=0) or (Length(Table1.FieldbyName('性別').AsString)=0)
or (Table1.FieldbyName('身份證號').AsINTEGER= 0) Then //如果數據輸入完整，提示將信息添全
begin
ShowMessage('請將成員信息添全，如有不詳信息可以填空.');
End
Else //保存人口信息操作
begin
Table1.FieldByName('人口編號').AsString:=Table1.FieldbyName('房間代號').AsString+IntToStr(s+1);
Table1.FieldByName('出生日期').AsDateTime:=DateTimePicker1.Date;
BitBtn3.Caption:='添加人口信息[&I]';
BitBtn4.Caption:='修改人口信息[&E]';
BitBtn5.Enabled:=True;
BitBtn6.Enabled:=True;
GroupBox1.Enabled:=False;
GroupBox2.Enabled:=False;
GroupBox3.Enabled:=False;
Table1.Post; //提交保存
end;
end;
end;
procedure TRKXXDJ.BitBtn4Click(Sender: TObject); //修改或取消操作
begin
if BitBtn4.Caption='修改人口信息[&E]' then //修改操作
begin
Table1.Edit;
BitBtn3.Caption:='保存人口信息[&S]';
BitBtn4.Caption:='取消人口信息[&U]';
BitBtn5.Enabled:=False;
BitBtn6.Enabled:=False;
GroupBox1.Enabled:=True;
GroupBox2.Enabled:=True;
GroupBox3.Enabled:=True;
DBLookupComboBox2.SetFocus;
End
Else //取消操作
begin
BitBtn3.Caption:='添加人口信息[&I]';
BitBtn4.Caption:='修改人口信息[&E]';
BitBtn5.Enabled:=True;
BitBtn6.Enabled:=True;
GroupBox1.Enabled:=False;
GroupBox2.Enabled:=False;
GroupBox3.Enabled:=False;
Table1.Cancel;
end;
end;
procedure TRKXXDJ.BitBtn5Click(Sender: TObject); //刪除人口信息
begin
If Table1.RecordCount <> 0 Then
if MessageDLG('是否刪除['+Table1.FieldByName('姓名').AsString+']的信息？'
,mtCustom,[mbYes,mbNo],0)=mrYes then Table1.Delete;
end;
procedure TRKXXDJ.BitBtn6Click(Sender: TObject);
begin
If Not Assigned(RKXXLL) Then
begin
RKXXLL:=TRKXXLL.Create(Self);
RKXXLL.ShowModal;
end;
end;
procedure TRKXXDJ.DateTimePicker1Change(Sender: TObject); //出生日期改變
begin
If Table1.RecordCount <> 0 Then
if LENGTH(Table1.FieldByName('出生日期').AsSTRING)>0 then //出生日期字段不為空
DateTimePicker1.DateTime:=Table1.FieldByName('出生日期').AsDateTime;
end;
procedure TRKXXDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RKXXDJ.Release;
RKXXDJ:=NIl;
end;
procedure TRKXXDJ.BitBtn7Click(Sender: TObject);
begin
CLOSE;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -