hyfrm.pas

来自「程序用Delphi6编写」· PAS 代码 · 共 101 行

unit HyFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Grids, DBGridEh;

type
  TfrmHy = class(TForm)
    StatusBar1: TStatusBar;
    DBGridEh1: TDBGridEh;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure ShowHyAdd(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmHy: TfrmHy;

implementation

uses MainDM, MainFrm, DB, AddHyFrm, EditHyFrm;


{$R *.dfm}

procedure TfrmHy.ShowHyAdd(Sender: TObject);
begin
  with dmMain.tblHy do
  begin
    if CanModify then
    begin
      try
        Append;
        FieldByName('开户日期').AsDateTime := Now;
        FieldByName('状态').AsBoolean := True; 
        frmAddHy := TfrmAddHy.Create(Self);
        if frmAddHy.ShowModal = mrOK then
          Post
        else
          Cancel;
      except
        ShowMessage('请检查必填项目是否输入完整，会员号是否已经存在！');
        Cancel;
      end;
    end;
  end;
end;

procedure TfrmHy.ToolButton2Click(Sender: TObject);
begin
  if dmMain.tblHy.RecordCount > 0 then
  begin
    with dmMain.tblHy do
    begin
      if MessageDlg('您确实要删除该会员吗？',
        mtWarning, [mbYes, mbNo], 0) = mrYes then
        Delete;
    end;
  end;
end;

procedure TfrmHy.ToolButton3Click(Sender: TObject);
begin
  with dmMain.tblHy do
  begin
    if CanModify then
    begin
      try
        Edit;
        frmEditHy := TfrmEditHy.Create(Self);
        if frmEditHy.ShowModal = mrOK then
          Post
        else
          Cancel;
      except
        ShowMessage('请输入会员姓名！');
        Cancel;
      end;
    end;
  end;
end;

procedure TfrmHy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.