ratesetup.pas

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

unit RateSetup;

interface

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

type
  TfrmRateSetup = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    cmdOk: TButton;
    cmdExit: TButton;
    Label1: TLabel;
    txtMonthRate: TEdit;
    Label2: TLabel;
    txtFeeRate: TEdit;
    Label3: TLabel;
    txtServiceRate: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    staRateSetup: TStatusBar;
    procedure cmdExitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cmdOkClick(Sender: TObject);
    procedure txtMonthRateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtFeeRateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtServiceRateKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure txtMonthRateKeyPress(Sender: TObject; var Key: Char);
    procedure txtFeeRateKeyPress(Sender: TObject; var Key: Char);
    procedure txtServiceRateKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmRateSetup: TfrmRateSetup;

implementation

uses dmPawn, Msg;

{$R *.DFM}

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

procedure TfrmRateSetup.FormShow(Sender: TObject);
begin
     with dmPawnFrm do
     begin
          tblRate.Open;
          txtMonthRate.Text:=Format('%8.2f',[tblRateMonthRate.Value]);
          txtFeeRate.Text:=Format('%8.2f',[tblRateFeeRate.Value]);
          txtServiceRate.Text:=Format('%8.2f',[tblRateTimeOutRate.Value]);
          tblRate.Close;
     end;
end;

procedure TfrmRateSetup.cmdOkClick(Sender: TObject);
begin
     if (txtMonthRate.Text='')or
        (txtMonthRate.Text='0.0')or
        (txtFeeRate.Text='')or
        (txtFeeRate.Text='0.0')or
        (txtServiceRate.Text='')or
        (txtServiceRate.Text='0.0') then
     begin
          messagedlg(Msg.MsgRateSetup,mtInformation,[mbYes],0);
          exit;
     end;
     with dmPawnFrm do
     begin
          tblRate.Open;
          tblRate.Edit;
          tblRateMonthRate.Value:=strtofloat(txtMonthRate.Text);
          tblRateFeeRate.Value:=strtofloat(txtFeeRate.Text);
          tblRateTimeOutRate.Value:=strtofloat(txtServiceRate.Text);
          tblRate.Post;
          tblRate.Close;
          staRateSetup.SimpleText:='数据存储完毕，请继续使用！';
     end;
end;

procedure TfrmRateSetup.txtMonthRateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if (txtMonthRate.Text='')or
             (txtMonthRate.Text='0.0') then
          begin
               messagedlg(Msg.MsgRateSetup,mtInformation,[mbYes],0);
               exit;
          end
          else
          begin
               txtFeeRate.SetFocus;
          end;
     end;
end;

procedure TfrmRateSetup.txtFeeRateKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if (txtFeeRate.Text='')or
             (txtFeeRate.Text='0.0') then
          begin
               messagedlg(Msg.MsgRateSetup,mtInformation,[mbYes],0);
               exit;
          end
          else
          begin
               txtServiceRate.SetFocus;
          end;
     end;
end;

procedure TfrmRateSetup.txtServiceRateKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if (txtServiceRate.Text='')or
             (txtServiceRate.Text='0.0') then
          begin
               messagedlg(Msg.MsgRateSetup,mtInformation,[mbYes],0);
               exit;
          end
          else
          begin
               cmdOk.SetFocus;
          end;
     end;
end;

procedure TfrmRateSetup.txtMonthRateKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (key>='A') and (key<='z') then
        key:=chr(0);
     if (key>=':') and (key<'A')then
        key:=chr(0);
     if (key>='[') and (key<'a') then
        key:=chr(0);
     
end;

procedure TfrmRateSetup.txtFeeRateKeyPress(Sender: TObject; var Key: Char);
begin
     if (key>='A') and (key<='z') then
        key:=chr(0);
     if (key>=':') and (key<'A')then
        key:=chr(0);
     if (key>='[') and (key<'a') then
        key:=chr(0);
end;

procedure TfrmRateSetup.txtServiceRateKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (key>='A') and (key<='z') then
        key:=chr(0);
     if (key>=':') and (key<'A')then
        key:=chr(0);
     if (key>='[') and (key<'a') then
        key:=chr(0);
end;

end.