init.~pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

unit Init;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB;

type
  TFrm_Init = class(TForm)
    DBedt_Sxrq: TDBEdit;
    Label3: TLabel;
    DBedt_Yj: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBedt_companyname: TDBEdit;
    Label6: TLabel;
    Label8: TLabel;
    Btn_Save: TButton;
    Btn_Cancel: TButton;
    Bevel1: TBevel;
    DataSource1: TDataSource;
    Btn_Close: TButton;
    DBedt_Montime: TDBEdit;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBedt_SdTime: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    DBedt_SVname: TDBEdit;
    Label13: TLabel;
    Btn_Modi: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_ModiClick(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure Btn_CancelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBedt_MontimeExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure disa ;
    procedure enab ;
    procedure AdjustRate;
    { Public declarations }
  end;

var
  Frm_Init: TFrm_Init;

implementation

uses sys_dm, sys_global ;

{$R *.dfm}

procedure TFrm_Init.FormCreate(Sender: TObject);
begin
  with frm_sys_dm.Qr_tmp1 do
  begin
    close;
    sql.Clear ;
    sql.Text := 'select * from pdata' ;
    open ;
  end;
end;

procedure TFrm_Init.FormShow(Sender: TObject);
begin
  disa ;
end;


procedure TFrm_Init.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frm_sys_dm.Qr_tmp1.Close ;
  Frm_sys_dm.Qr_tmp2.Close ;
end;

procedure TFrm_Init.disa ;
var
  i: integer ;
begin
  for i := 0 to Controlcount-1 do
    if Controls[i].ClassType = TDBEdit then
        TDBEdit(Controls[i]).ReadOnly := true ;
  Btn_Modi.Enabled := true ;
  Btn_Save.Enabled := false ; Btn_Cancel.Enabled := false ;
  DBedt_companyname.SetFocus ;
end;

procedure TFrm_Init.enab ;
var
  i: integer ;
begin
  for i := 0 to Controlcount-1 do
    if Controls[i].ClassType = TDBEdit then
        TDBEdit(Controls[i]).ReadOnly := false ;
  Btn_Modi.Enabled := false ;
  Btn_Save.Enabled := true ; Btn_Cancel.Enabled := true ;
  DBedt_companyname.SetFocus ;
end;

procedure TFrm_Init.AdjustRate;
begin
  m_MonTime := strToint(DBedt_MonTime.text);
  with Frm_sys_dm.Qr_tmp2 do
  begin
    close;
    sql.Clear ;
    sql.add('update Grate');
    sql.add('set jk1=(1.0*ISNULL(jk,0.0))/60*(:jsdw1),');
    sql.add('yk1=(1.0*ISNULL(yk,0.0))/60*(:jsdw2),');
    sql.add('ptk1=(1.0*ISNULL(ptk,0.0))/60*(:jsdw3)');
    Parameters.parambyname('jsdw1').value := m_MonTime ;
    Parameters.parambyname('jsdw2').value := m_MonTime ;
    Parameters.parambyname('jsdw3').value := m_MonTime ;
    try
      execsql;
    except
      application.messagebox('上机费率有问题, 请检查！','错误提示',mb_ok+mb_iconstop);
      exit;
    end;
  end;
  m_sxrq := strToint(DBedt_Sxrq.text);
  m_yj := strToint(DBedt_Yj.text)  ;
end;


procedure TFrm_Init.Btn_ModiClick(Sender: TObject);
begin
  frm_sys_dm.Qr_tmp1.Edit ;
  enab ;
  DBedt_SVname.Text := ComputerName ;
end;

procedure TFrm_Init.Btn_SaveClick(Sender: TObject);
begin
  Frm_sys_dm.Qr_tmp1.Post ;
  MessageBox(handle,'修改已做保存！','提示',MB_ok+MB_ICONWARNING);
  disa;
  AdjustRate; // 根据计时单位, 调整表Grate费率
end;

procedure TFrm_Init.Btn_CancelClick(Sender: TObject);
begin
  Frm_sys_dm.Qr_tmp1.Cancel ;
  disa;
end;

procedure TFrm_Init.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    vk_return:
    begin
      SelectNext(ActiveControl As Twincontrol,true,true);
      key:=0;
    end;
    vk_up,vk_down:
    begin
      SelectNext(ActiveControl As Twincontrol,key=vk_down,true);
      key:=0;
    end;
  end;
end;

procedure TFrm_Init.DBedt_MontimeExit(Sender: TObject);
begin
  if (DBedt_MonTime.Text ='0') or (DBedt_MonTime.Text = '') then begin
     messagebox(handle,'计时单位至少要1分钟！','错误提示',mb_ok+mb_iconstop);
     DBedt_MonTime.SetFocus ;
     exit ;
  end;

  if strToint(DBedt_MonTime.Text) >4 then begin
     messagebox(handle,'计时单位的大小只能是1, 2, 3','错误提示',mb_ok+mb_iconstop);
     DBedt_MonTime.SetFocus ;
     exit ;
  end;
end;



end.