hygl_addnew_zgdb.pas

工会会员管理通用系统 数据库学习好资料 delphi编写 非常实用

unit HYGL_addnew_ZGDB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Mask;

type
  TFrmHYGL_addnew_ZGDB = class(TForm)
    Edt_hyzh: TEdit;
    Edt_xm: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edt_bz: TEdit;
    Label13: TLabel;
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label17: TLabel;
    Bevel1: TBevel;
    Btn_OK: TSpeedButton;
    Btn_EXIT: TSpeedButton;
    Edt_csny: TMaskEdit;
    Edt_gzsj: TMaskEdit;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    opt_zzmm1: TRadioButton;
    opt_zzmm2: TRadioButton;
    opt_zzmm3: TRadioButton;
    opt_xl1: TRadioButton;
    opt_xl2: TRadioButton;
    opt_xl3: TRadioButton;
    opt_xl4: TRadioButton;
    opt_dblb1: TRadioButton;
    opt_dblb2: TRadioButton;
    opt_dblb3: TRadioButton;
    opt_zclb1: TRadioButton;
    opt_zclb2: TRadioButton;
    opt_zclb3: TRadioButton;
    Edt_xb: TComboBox;
    Label2: TLabel;
    edt_DW: TEdit;
    procedure Edt_hyzhKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure Btn_EXITClick(Sender: TObject);
    procedure Btn_OKClick(Sender: TObject);
    procedure Edt_hyzhExit(Sender: TObject);
  private
    { Private declarations }
    procedure saveData;
  public
    { Public declarations }
  end;

var
  FrmHYGL_addnew_ZGDB: TFrmHYGL_addnew_ZGDB;

implementation

uses Umyfunction, HYGL_DModule, HYGL_main;

{$R *.dfm}

//显示窗体
procedure TFrmHYGL_addnew_ZGDB.FormShow(Sender: TObject);
begin
  with dmd do begin
    if not Tbl_zgdb.active then Tbl_ZGDB.open;
  end;

  clearEdt(self);
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;
//确定
procedure TFrmHYGL_addnew_ZGDB.Btn_OKClick(Sender: TObject);
var
  s:string;
  HYZH:string ;
begin
  HYZH:=Edt_HYZH.Text;
  if HYZH='' then
  begin
    messagebox(handle,pchar('您连会员证号都不输入吗?'),'错误',mb_iconerror +mb_ok);
    exit;
  end;
  if strlen(pchar(trim(Edt_csny.text)))<10 then begin
    messagebox(handle,pchar('必须输入出生年月！'),'错误',mb_iconerror +mb_ok);
    exit;
  end;
  with dmd.tbl_ZGDB do begin
    if Locate('HYZH',HYZH,[]) then begin
      s:='会员证号重复，请检查！';
      messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
      edt_HYZH.setfocus;
      exit;
    end;
  end;
  saveData;
  clearEdt(self);
end;


procedure TFrmHYGL_addnew_ZGDB.Btn_EXITClick(Sender: TObject);
begin
  close;
end;

//保存所输入数据到数据库
procedure TFrmHYGL_addnew_ZGDB.saveData;
var
  ZZMM,XL,DBLB,ZCLB:string;
begin
  //组织数据
  if opt_zzmm1.Checked then zzmm:='党员';
  if opt_zzmm2.Checked then zzmm:='团员';
  if opt_zzmm3.Checked then zzmm:='其它';

  if opt_xl1.Checked then xl:='大本';
  if opt_xl2.Checked then xl:='大专';
  if opt_xl3.Checked then xl:='高中';
  if opt_xl4.Checked then xl:='初中';

  if opt_zclb1.Checked then zclb:='高级';
  if opt_zclb2.Checked then zclb:='中级';
  if opt_zclb3.Checked then zclb:='初级';

  if opt_dblb1.Checked then dblb:='工人';
  if opt_dblb2.Checked then dblb:='管理';
  if opt_dblb3.Checked then dblb:='中干';

  //添加
  with dmd.tbl_zgdb do begin
    Append;
    FieldValues['HYZH'] := Edt_HYZH.text;
    FieldValues['XM'] := Edt_xm.text;
    FieldValues['XB'] := Edt_xb.text;
    FieldValues['dw'] := Edt_dw.text;
    FieldValues['ZZMM'] := zzmm;
    FieldValues['CSNY'] := trim(Edt_csny.text);
    FieldValues['GZSJ'] := Edt_gzsj.text;
    FieldValues['DBLB'] := dblb;
    FieldValues['ZCLB'] := zclb;
    FieldValues['XL'] := xl;
    FieldValues['BZ'] := Edt_bz.text;
    Post;
    close;
    open;
  end;
end;

procedure TFrmHYGL_addnew_ZGDB.Edt_hyzhKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then { 判断是按执行键}
  Begin
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
    key:=#0;
  end;
end;

procedure TFrmHYGL_addnew_ZGDB.Edt_hyzhExit(Sender: TObject);
var
  s,hyzh:string;
begin
  hyzh:=edt_hyzh.text;
  if hyzh='' then exit;
  with dmd.tbl_ZGDB do begin
    if Locate('hyzh',hyzh,[]) then begin
      s:='会员证号重复，请检查！';
      messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
      edt_hyzh.setfocus;
      exit;
    end;
  end;
end;

end.