mc_rkxx.pas

delph6.0关于物业管理的源码.rar

unit MC_RKXX;

interface

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

type
  TRKXX = class(TForm)
    Label26: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label1: TLabel;
    Label22: TLabel;
    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;
    DBText1: TDBText;
    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;
    BitBtn3: TBitBtn;
    BitBtn4: 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;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RKXX: TRKXX;

implementation

uses MC_RKXXCX, MC_YZXXLL;

{$R *.DFM}

procedure TRKXX.BitBtn4Click(Sender: TObject);
begin
     RKXXCX.Query2.Cancel;
     Close;
end;

procedure TRKXX.BitBtn1Click(Sender: TObject);
var Picture1:Tpicture;
begin
    Picture1:=TPicture.Create;
    if OpenPictureDialog1.Execute then
       begin
           Picture1.LoadFromFile(OpenPictureDialog1.Filename);
           RKXXCX.Query2.FieldByName('照片').Assign(Picture1);
       end;
end;

procedure TRKXX.BitBtn2Click(Sender: TObject);
begin
     RKXXCX.Query2.FieldByName('照片').Assign(Nil);
end;

procedure TRKXX.BitBtn3Click(Sender: TObject);
begin
     if (Length(RKXXCX.Query2.FieldbyName('姓名').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('性别').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('文化程度').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('与户主关系').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('身份证号').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('家庭住址').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('户口所在地').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('工作单位').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('籍贯').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('国籍').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('婚姻状况').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('手机').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('传呼').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('暂住证号').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('职业').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('职务').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('职称').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('单位电话').AsString)=0) or
        (Length(RKXXCX.Query2.FieldbyName('家庭电话').AsString)=0)
        Then
        begin
             ShowMessage('请将成员信息添全，如有不详信息可以填空.');
        end
     else
        begin
             RKXXCX.Query2.FieldByName('出生日期').AsDateTime:=DateTimePicker1.Date;
             RKXXCX.Query2.Post;
             //RKXXCX.Query2.RefResh;
             Close;
        end;
end;

procedure TRKXX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     RKXX.Release;
     RKXX:=Nil;
end;

end.