📄 mc_rkxxdj.~pas

📁 1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库
💻 ~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.
💿 文件大小 6534 K
👤 上传用户 a1a1J0
📂 所属分类 *行业应用
🏷️ 相关标签

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

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