unit_frmkhinfo.pas

影院售票系统完整源码

unit Unit_frmkhinfo;

interface

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

type
  Tfrmkhinfo = class(TForm)
    GroupBox1: TGroupBox;
    BtnOk: TBitBtn;
    BtnExit: TBitBtn;
    Label1: TLabel;
    Edtname: TCyberEdit;
    Label2: TLabel;
    EdtPhone: TCyberEdit;
    Label3: TLabel;
    EdtNO: TCyberEdit;
    procedure BtnOkClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    function GenerateNo:string;
    function DrawcodeExist(_no:string):Boolean;
  public
    plid:integer;
    name,phone,No:string;
    { Public declarations }
  end;

var
  frmkhinfo: Tfrmkhinfo;

implementation
uses unit_adodm;
{$R *.dfm}

procedure Tfrmkhinfo.BtnOkClick(Sender: TObject);
var
  i:integer;
begin
  name:=edtname.Text ;
  phone:=edtphone.Text ;
end;

procedure Tfrmkhinfo.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then close;
end;

procedure Tfrmkhinfo.BtnExitClick(Sender: TObject);
begin
  close;
end;

function Tfrmkhinfo.GenerateNo:String;
var
  _no:string;
  i,j:integer;
begin
  for j:=1 to 10000 do
  begin
    _no:='';
    for i:=1 to 6 do
    begin
      _No:=_no+inttostr(random(10));
    end;
    result:=_no;
    if not DrawcodeExist(_no) then
    begin
      result:=_no;
      break;
    end;
  end;
end;

function Tfrmkhinfo.DrawcodeExist(_no:string): Boolean;
begin
  result:=false;
  with adodm.ADOProc do
  begin
    close;
    ProcedureName := 'My_Drawcode_Exist';
    Parameters.Refresh;
    Parameters.Items[1].Value :=_no;
    Parameters.Items[2].Value :=-1;
    ExecProc;
    if Parameters.ParamByName('@retcode').Value =1 then
     result:=true;
  end;
end;

procedure Tfrmkhinfo.FormShow(Sender: TObject);
begin
   no:=GenerateNo;
   EdtNO.Text :=NO;
end;

end.