unit_frmsysparam.pas

来自「影院售票系统完整源码」· PAS 代码 · 共 82 行

unit Unit_frmsysparam;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit_frmtemplate2, StdCtrls, Buttons, ExtCtrls, Mask, CyberEdit,
  CyberXPMenu;

type
  Tfrmsysparam = class(Tfrmtemplate2)
    BtnSave: TBitBtn;
    Label1: TLabel;
    Edtquitscale: TCyberEdit;
    Label2: TLabel;
    CyberXPMenu1: TCyberXPMenu;
    procedure BtnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure initparams;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsysparam: Tfrmsysparam;

implementation
uses unit_public,unit_adodm;
{$R *.dfm}

procedure Tfrmsysparam.BtnSaveClick(Sender: TObject);
var
  sqlstr:string;
begin
  inherited;
  with adodm.ADOProc  do
  begin
      Close;
      ProcedureName := 'my_inset_sysparam';
      Parameters.Refresh;
      Parameters.Items[1].Value :=1;
      Parameters.Items[2].Value :='退票手续费比例';
      Parameters.Items[3].Value :=Edtquitscale.Text;
      Parameters.Items[4].Value :=-1;
      ExecProc;
      if Parameters.ParamByName('@retcode').Value =1 then
      begin
      end;
  end;    
end;

procedure Tfrmsysparam.initparams;
var
  _paramid:integer;
  _paramvalue:string;
begin
  if publicinfo.Execsql('select * from tblsysparam',false) then
  begin
    with adodm.ADOQRY do
    begin
      if recordcount<=0 then exit;
      first;
      _paramid:=fieldbyname('paramid').AsInteger ;
      _paramvalue:=fieldbyname('paramvalue').AsString ;
      case _paramid of
      1:
        Edtquitscale.Text :=_paramvalue;
      end;
    end;
  end;
end;

procedure Tfrmsysparam.FormShow(Sender: TObject);
begin
  inherited;
  initparams;
end;

end.