ufrma02e.pas

一个会议签到系统

unit uFrmA02E;

interface

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

type
  TFrmA02E = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
  private
    { Private declarations }
  public
    iICKFlag:Integer;//101 增加同级 102 增加下及 100 修改
    sICKBML:String; 
    { Public declarations }
  end;

var
  FrmA02E: TFrmA02E;

implementation

uses uFunSys, uDMOA, uDataOA;

{$R *.DFM}

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

procedure TFrmA02E.BitBtn1Click(Sender: TObject);
begin
  if Length(Edit3.Text) > 40 then begin
     DlgWarningA('联合编码不能超过40位');
     Exit;
  end; 
  if (Edit1.Text = '') and (iICKFlag <> 100) then begin
     DlgWarningA('编码不能为空');
     Exit; 
  end;
  if Edit2.Text = '' then begin
     DlgWarningA('名称不能为空');
     Exit; 
  end; 
  if iICKFlag = 101 then begin
      sSYSTempStr:=Edit1.Text+'#'+Edit3.Text+'#'+Edit2.text;
      Close;
      Exit;      
  end;
  if iICKFlag = 102 then begin
      sSYSTempStr:=Edit1.Text+'#'+Edit3.Text+'#'+Edit2.text;
      Close;
      Exit;      
  end;
  if iICKFlag = 100 then begin
      sSYSTempStr:=Edit1.Text+'#'+Edit3.Text+'#'+Edit2.text;
      Close;
      Exit;      
  end;
end;

procedure TFrmA02E.Edit1Change(Sender: TObject);
begin
  Edit3.Text:=sICKBML+Edit1.Text;    
end;

procedure TFrmA02E.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if Msg.CharCode = 222 then Handled:=True;
  if Msg.CharCode = 13  then begin
     BitBtn1.SetFocus;  
  end; 
end;

end.