hygl_hydd.pas

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

unit HYGL_hydd;

interface

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

type
  TFrmHYGL_hydd = class(TForm)
    Edt_hyzh: TEdit;
    Edt_xm: TEdit;
    Edt_dw: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Edt_DRDW: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label17: TLabel;
    Bevel1: TBevel;
    Btn_OK: TSpeedButton;
    Btn_EXIT: TSpeedButton;
    Bevel2: TBevel;
    Edt_DDSJ: TMaskEdit;
    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 }
  public
    { Public declarations }
  end;

var
  FrmHYGL_hydd: TFrmHYGL_hydd;

implementation

uses Umyfunction, HYGL_DModule, HYGL_main;

{$R *.dfm}

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

  clearEdt(self);
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
end;
//确定
procedure TFrmHYGL_hydd.Btn_OKClick(Sender: TObject);
var
  s:string;
  HYZH,DRDW,DDSJ:string ;
begin
  HYZH:=Edt_HYZH.Text;
  DRDW:=Edt_DRDW.Text;
  DDSJ:=Edt_DDSJ.Text;
  if (HYZH='')OR(DRDW='')OR(DDSJ='    -  -  ') then
  begin
    s:='同志，请输入所需数据！';
    messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
    exit;
  end;
  if NOT dmd.tbl_HY.Locate('HYZH',HYZH,[]) then begin
    s:='该会员证号不存在，请检查！';
    messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
    edt_HYZH.setfocus;
    exit;
  end;
  with dmd.tbl_HY do begin //修改单位
    edit;
    FieldValues['dw']:=edt_drdw.Text;
    post;
    close;
    open;
  end;
  with dmd.tbl_DDJL do begin //添加调动记录
    append;
    S:=edt_XM.Text+DDSJ+'由'+edt_DW.Text+'调入'+DRDW;
    FieldValues['HYZH']:=HYZH;
    FieldValues['DDJL']:=S;
    post;
    close;
    open;
    //update;
    //Refresh;
  end;
  clearEdt(self);
  //如果不输年月日长度仍为10
  //caption:=inttostr(strlen(pchar(edt_ddsj.text)));
  caption:=edt_ddsj.text;
end;


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


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

procedure TFrmHYGL_hydd.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
      edt_xm.Text:=fieldvalues['xm'];
      edt_dw.Text:=FieldValues['dw']
    end else begin
      s:='该会员证号不存在，请检查！    ';
      messagebox(handle,pchar(s),'错误',mb_iconerror +mb_ok);
      edt_hyzh.setfocus;
      exit;
    end;
  end;
end;

end.