zkzgz_p.pas

考试系统,是一个简单的但是很经典的

unit zkzgz_p;

interface

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

type
  Tf_zkzgz = class(TForm)
    chk2: TCheckBox;
    ws2: TSpinEdit;
    Label1: TLabel;
    ws1: TSpinEdit;
    Label2: TLabel;
    chk1: TCheckBox;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure ws2Change(Sender: TObject);
    procedure chk1Click(Sender: TObject);
    procedure chk2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_zkzgz: Tf_zkzgz;

implementation

uses dm_p, ksgl_p;

{$R *.dfm}

procedure Tf_zkzgz.ws2Change(Sender: TObject);
begin
   edit1.MaxLength:=ws2.Value;
end;

procedure Tf_zkzgz.chk1Click(Sender: TObject);
begin
    chk2.Checked:=not chk1.Checked;
end;

procedure Tf_zkzgz.chk2Click(Sender: TObject);
begin
   chk1.Checked:=not chk2.Checked;
end;

procedure Tf_zkzgz.SpeedButton2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_zkzgz.SpeedButton1Click(Sender: TObject);
begin
   if chk2.Checked and (ws1.Value<ws2.Value) then
   begin
      application.MessageBox('准考证号总长度必需大于指定的前几位长度！','提示信息',48);
      exit;
   end;
   if chk2.Checked and (length(trim(edit1.Text))<>ws2.Value) then
   begin
      application.MessageBox('填充位数设置不对，请修改！','提示信息',48);
      edit1.SetFocus;
      exit;
   end;
   if application.MessageBox('您确定要自动生成准考证号吗？','确认信息',4+32)<>6 then exit;
   Tag:=1;
   close;
end;

end.