hygl_addnew.pas

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

unit HYGL_addnew;

interface

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

type
  TFrmHYGL_addnew = class(TForm)
    Edt_hyzh: TEdit;
    Edt_bxbh: TEdit;
    Edt_xm: TEdit;
    Edt_dw: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edt_gw: TEdit;
    Edt_xl: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edt_jg: TEdit;
    Edt_mz: TEdit;
    Edt_bz: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label17: TLabel;
    Bevel1: TBevel;
    Btn_OK: TSpeedButton;
    Btn_EXIT: TSpeedButton;
    Edt_rhsj: TMaskEdit;
    Edt_csny: TMaskEdit;
    Edt_gzsj: TMaskEdit;
    Edt_xb: TComboBox;
    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: TFrmHYGL_addnew;

implementation

uses Umyfunction, HYGL_DModule, HYGL_main;

{$R *.dfm}

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

  clearEdt(self);
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;
//确定
procedure TFrmHYGL_addnew.Btn_OKClick(Sender: TObject);
var
  s:string;
  HYZH,BXBH:string ;
begin
  HYZH:=Edt_HYZH.Text;
  BXBH:=Edt_BXBH.Text;
  if HYZH='' then
  begin
    messagebox(handle,pchar('您连会员证号都不输入吗?'),'错误',mb_iconerror +mb_ok);
    exit;
  end;
  with dmd.tbl_HY do begin
    if Locate('HYZH',HYZH,[]) then begin
      s:='会员证号重复，请检查！';
      messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
      edt_HYZH.setfocus;
      exit;
    end;
  end;
  saveData;
  edt_hyzh.Clear;
  edt_xm.Clear;
  edt_hyzh.Clear;
  edt_bxbh.Clear;
  edt_csny.Clear;
  edt_gzsj.Clear;
  edt_jg.Clear;
  edt_bz.Clear;
  //clearEdt(self);
end;


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

//保存所输入数据到数据库
procedure TFrmHYGL_addnew.saveData;
//var
  //RWRQ,DHRQ,WGRQ,YZRQ:String;
begin
  //CSrq:=Edt_CSRQ_Y.Text+'-'+Edt_CSRQ_M.Text+'-'+Edt_CSRQ_D.Text;
  with dmd.tbl_HY do begin
    Append;
    FieldValues['BXBH'] := Edt_bxbh.text;
    FieldValues['HYZH'] := Edt_HYZH.text;
    FieldValues['DW'] := Edt_dw.text;
    FieldValues['XM'] := Edt_xm.text;
    FieldValues['XB'] := Edt_xb.text;
    FieldValues['GW'] := Edt_gw.text;
    FieldValues['JG'] := Edt_jg.text;
    FieldValues['MZ'] := Edt_mz.text;
    FieldValues['CSNY'] := Edt_csny.text;
    FieldValues['GZSJ'] := Edt_gzsj.text;
    FieldValues['RHSJ'] := Edt_rhsj.text;
    FieldValues['XL'] := Edt_xl.text;
    FieldValues['BZ'] := Edt_bz.text;
    Post;
    close;
    open;
  end;
end;

procedure TFrmHYGL_addnew.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.Edt_hyzhExit(Sender: TObject);
var
  s,hyzh:string;
begin
  hyzh:=edt_hyzh.text;
  if hyzh='' then exit;
  with dmd.tbl_HY 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.