o_fy.pas

汽配前台收费,一个具有详细功能的小系统

unit o_fy;

interface

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

type
  Tfrm_o_fy = class(TForm)
    Panel1: TPanel;
    txt_1: TEdit;
    txt_2: TEdit;
    txt_3: TEdit;
    txt_4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    txt_text: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    procedure txt_1KeyPress(Sender: TObject; var Key: Char);
    procedure txt_2KeyPress(Sender: TObject; var Key: Char);
    procedure txt_3KeyPress(Sender: TObject; var Key: Char);
    procedure txt_4KeyPress(Sender: TObject; var Key: Char);
    procedure txt_textKeyPress(Sender: TObject; var Key: Char);
    procedure cmdOKClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_o_fy: Tfrm_o_fy;

implementation

{$R *.DFM}

uses
  print, qt_js, log;

procedure Tfrm_o_fy.txt_1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Ord(Key) = 8) or (Ord(Key) = 46) or (Ord(Key) = 13)) then
    Key := Chr(0);
  if Ord(Key) = 13 then txt_2.SetFocus;
end;

procedure Tfrm_o_fy.txt_2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Ord(Key) = 8) or (Ord(Key) = 46) or (Ord(Key) = 13)) then
    Key := Chr(0);
  if Ord(Key) = 13 then txt_3.SetFocus;
end;

procedure Tfrm_o_fy.txt_3KeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Ord(Key) = 8) or (Ord(Key) = 46) or (Ord(Key) = 13)) then
    Key := Chr(0);
  if Ord(Key) = 13 then txt_text.SetFocus;
end;

procedure Tfrm_o_fy.txt_4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (((Key >= '0') and (Key <= '9')) or (Ord(Key) = 8) or (Ord(Key) = 46) or (Ord(Key) = 13)) then
    Key := Chr(0);
end;

procedure Tfrm_o_fy.txt_textKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = 13 then txt_4.SetFocus;
end;

procedure Tfrm_o_fy.cmdOKClick(Sender: TObject);
var
  v1, v2, v3, v4: Double;
  code1, code2, code3, code4: integer;
begin
  code1 := 0;
  code2 := 0;
  code3 := 0;
  code4 := 0;
  //
  if (Trim(txt_text.Text) <> '') and (Trim(txt_4.Text) <> '') then
    Val(Trim(txt_4.Text), v4, code4)
  else
    v4 := 0;
  //
  if Trim(Trim(txt_1.Text)) = '' then
    v1 := 0
  else
    Val(Trim(txt_1.Text), v1, code1);
  //
  if Trim(Trim(txt_2.Text)) = '' then
    v2 := 0
  else
    Val(Trim(txt_2.Text), v2, code2);
  //
  if Trim(Trim(txt_3.Text)) = '' then
    v3 := 0
  else
    Val(Trim(txt_3.Text), v3, code3);
  //
  if (code1 <> 0) or (code2 <> 0) or (code3 <> 0) or (code4 <> 0) then begin
    MessageBox(Handle, '数值无效', '沈阳信德', MB_ICONQUESTION or MB_OK);
    Exit;
  end else begin
    frm_print.lbl_f_1.Caption := Trim(txt_1.Text);
    frm_print.lbl_f_2.Caption := Trim(txt_2.Text);
    frm_print.lbl_f_3.Caption := Trim(txt_3.Text);
    frm_print.lbl_f_4.Caption := Trim(txt_4.Text);
    frm_print.lbl_text_1.Caption := Trim(txt_text.Text);
    if (v1 + v2 + v3 + v4) < 0.01 then
      frm_print.lbl_f_5.Caption := ''
    else
      frm_print.lbl_f_5.Caption := FloatToStr(v1 + v2 + v3 + v4);
    //
    frm_log.intPrint := 1;
    Close;
  end;
end;

procedure Tfrm_o_fy.cmdCancelClick(Sender: TObject);
begin
  frm_log.intPrint := 2;
  Close;
end;

procedure Tfrm_o_fy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tfrm_o_fy.FormDestroy(Sender: TObject);
begin
  frm_o_fy := nil;
end;

end.