setlimit.pas

一个典当行的业务管理系统程序

unit SetLimit;

interface

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

type
  TfrmSetLimit = class(TForm)
    cmdOk: TButton;
    cmdCancel: TButton;
    cmdExit: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cmbPawnLimit: TComboBox;
    staPawnLimit: TStaticText;
    procedure cmdExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure cmbPawnLimitKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure IniPawnLimit;
  public
    { Public declarations }
  end;

var
  frmSetLimit: TfrmSetLimit;

implementation

uses dmPawn;

{$R *.DFM}
var
   CertiEnterTimes:integer;
procedure TfrmSetLimit.IniPawnLimit;
begin
     with cmbPawnLimit.Items  do
     begin
          Add('半个月');
          Add('一个月');
          Add('二个月');
          Add('三个月');
          Add('四个月');
          Add('五个月');
          Add('六个月');
          Add('七个月');
          Add('八个月');
          Add('九个月');
          Add('十个月');
          Add('十一个月');
          Add('十二个月');

     end;
     cmbPawnLimit.ItemIndex:=3;
end;

procedure TfrmSetLimit.cmdExitClick(Sender: TObject);
begin
     close;
end;

procedure TfrmSetLimit.FormShow(Sender: TObject);
begin
     IniPawnLimit;
end;

procedure TfrmSetLimit.cmdCancelClick(Sender: TObject);
begin
     cmbPawnLimit.ItemIndex:=3;
end;

procedure TfrmSetLimit.cmdOkClick(Sender: TObject);
begin
     with dmPawnFrm do
     begin
          tblPawnLimit.Open;
          tblPawnLimit.Edit;
          tblPawnLimitLimitCode.Value:=cmbPawnLimit.ItemIndex;
          tblPawnLimitPawnLimit.Value:=cmbPawnLimit.Text;
          tblPawnLimit.Post;
          tblPawnLimit.Close;
          staPawnLimit.Caption:='典当期限设置完毕，请继续使用！'
     end;     
end;

procedure TfrmSetLimit.cmbPawnLimitKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if CertiEnterTimes=0 then
          begin
               CertiEnterTimes:=CertiEnterTimes+1;
               if SendMessage((Sender as TComBoBox).handle,CB_GetDroppedState,0,0)
                  =0 then
                  PostMessage((Sender as TComBoBox).handle,CB_SHOWDROPDOWN,1,0);
          end
          else
          begin
               CertiEnterTimes:=0;
               cmdOk.SetFocus;
          end;
     end;
end;

end.