mc_jtcyxx.~pas

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

unit MC_JTCYXX;

interface

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

type
  TJTCYXX = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit15: TDBEdit;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    Label17: TLabel;
    DBEdit17: TDBEdit;
    Label18: TLabel;
    DBEdit18: TDBEdit;
    Label19: TLabel;
    DBEdit19: TDBEdit;
    Label23: TLabel;
    DBEdit23: TDBEdit;
    Label24: TLabel;
    DBEdit24: TDBEdit;
    Label25: TLabel;
    DBEdit25: TDBEdit;
    Label26: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label1: TLabel;
    Label22: TLabel;
    DateTimePicker1: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    DBLookupComboBox6: TDBLookupComboBox;
    DBLookupComboBox7: TDBLookupComboBox;
    Label27: TLabel;
    DBMemo1: TDBMemo;
    GroupBox2: TGroupBox;
    DBImage1: TDBImage;
    Bevel1: TBevel;
    Shape1: TShape;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBComboBox1: TDBComboBox;
    Query1: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Query6: TQuery;
    Query7: TQuery;
    Query8: TQuery;
    DBComboBox3: TDBComboBox;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    DataSource6: TDataSource;
    DBText1: TDBText;
    OpenPictureDialog1: TOpenPictureDialog;
    Query3BDEDesigner: TStringField;
    Query4BDEDesigner: TStringField;
    Query1BDEDesigner: TStringField;
    Query6BDEDesigner: TStringField;
    Query7BDEDesigner: TStringField;
    Query8BDEDesigner: TStringField;
    DBComboBox2: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBComboBox1Enter(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBLookupComboBox1Enter(Sender: TObject);
    procedure DBLookupComboBox1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JTCYXX: TJTCYXX;

implementation

uses MC_YZXXLL;

{$R *.DFM}

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

procedure TJTCYXX.BitBtn4Click(Sender: TObject);
begin
     YZXXLL.Table1.Cancel;
     Close;
end;

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

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

procedure TJTCYXX.BitBtn2Click(Sender: TObject);
begin
     YZXXLL.Table1.FieldByName('照片').Assign(Nil);
end;

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

procedure TJTCYXX.DBEdit2Enter(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClAqua;
end;

procedure TJTCYXX.DBEdit2Exit(Sender: TObject);
begin
     TDBEdit(Sender).Color:=ClWindow;
end;

procedure TJTCYXX.DBComboBox1Enter(Sender: TObject);
begin
     TDBComboBox(Sender).Color:=ClAqua;
end;

procedure TJTCYXX.DBComboBox1Exit(Sender: TObject);
begin
     TDBComboBox(Sender).Color:=ClWindow;
end;

procedure TJTCYXX.DBLookupComboBox1Enter(Sender: TObject);
begin
     TDBLookupComBoBox(Sender).Color:=ClAqua;
end;

procedure TJTCYXX.DBLookupComboBox1Exit(Sender: TObject);
begin
     TDBLookupComBoBox(Sender).Color:=ClWindow;
end;

end.