hygl_zxhy.pas

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

unit HYGL_ZXHY;

interface

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

type
  TFrmHYGL_ZXHY = class(TForm)
    Edt_hyzh: TEdit;
    Edt_xm: TEdit;
    Edt_dw: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Panel1: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label17: TLabel;
    Bevel1: TBevel;
    Btn_OK: TSpeedButton;
    Btn_EXIT: TSpeedButton;
    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_ZXHY: TFrmHYGL_ZXHY;

implementation

uses Umyfunction, HYGL_DModule, HYGL_main;

{$R *.dfm}

//显示窗体
procedure TFrmHYGL_ZXHY.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_ZXHY.Btn_OKClick(Sender: TObject);
var
  s:string;
  HYZH:string ;
begin
  HYZH:=Edt_HYZH.Text;
  if (HYZH='') 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;
  s:='将删除该会员所有信息，确定吗！';
  if messagebox(handle,pchar(s),'确认删除',32+mb_YESNO)=IDyes then
    with dmd.tbl_HY do begin //注销
      DELETE;
      try
        Prior;
      except
        next;
      end;
    end;
  clearEdt(self);
end;


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


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

procedure TFrmHYGL_ZXHY.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.