periodset.~pas

彩票销售系统

unit Periodset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, DB, ADODB;

type
  TPreadSetForm = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOStoredProc1: TADOStoredProc;
    periodsetq: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PreadSetForm: TPreadSetForm;

implementation
  uses NumberManger;
{$R *.dfm}

procedure TPreadSetForm.BitBtn2Click(Sender: TObject);
begin

  close;
end;

procedure TPreadSetForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  NumberMangerMain.N3Click(Sender);
  action:=cafree;
end;

procedure TPreadSetForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then BitBtn1Click(Sender);
  
  if not (key in ['0'..'9',Chr(8)])  then
  key:=#0;
end;

procedure TPreadSetForm.BitBtn1Click(Sender: TObject);
var
  sqlstr:string;
begin
  if application.MessageBox('注意此操作会删除以往数据，是否确进行期号设置?','系统提示',mb_yesno+mb_iconquestion)=id_yes  then
  begin
  if length(edit1.Text)<>7 then
  begin
    application.MessageBox('数据格式非法，请重新录入！','系统提示',MB_ICONERROR);
    edit1.SetFocus;
    exit;
  end
  else
  begin
    ADOStoredProc1.Close;
    ADOStoredProc1.Parameters[1].Value:=edit1.Text;
    ADOStoredProc1.Prepared;
    ADOStoredProc1.ExecProc;
    application.MessageBox('期号设置成功！','系统提示',MB_ICONERROR);
    ADOStoredProc1.Close;
    NumberMangerMain.userid.Close;
    NumberMangerMain.userid.SQL.Clear;
    NumberMangerMain.userid.SQL.Add('select max(FSalePeriod) from T_SalePeriod  where FAssayBz=0');
    NumberMangerMain.userid.Open;
    if NumberMangerMain.Userid.RecordCount<1 then
    begin
      showmessage('当前无可用期号，请进行期号设置后重新启动系统！');
    end
    else
    begin
      saleperiod:=NumberMangerMain.userid.Fields[0].value;
      NumberMangerMain.StatusBar1.Panels[3].Text:=NumberMangerMain.userid.Fields[0].value;
      NumberMangerMain.userid.Close;
      Close;
      //NumberMangerMain.N3Click(Sender);
    end;
  end;
  end;
end;

end.