default_f.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 272 行

unit Default_F;

interface

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

type
  TF_Default = class(TForm)
    Panel1: TPanel;
    Bt_Cancel: TButton;
    Bt_OK: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox3: TGroupBox;
    RB_Fix_Date: TRadioButton;
    RB_Sys_Date: TRadioButton;
    DTP_Date: TDateTimePicker;
    GroupBox2: TGroupBox;
    RB_Ammeter_Fix_Date: TRadioButton;
    RB_Ammeter_Sys_Date: TRadioButton;
    DTP_Ammeter_Date: TDateTimePicker;
    TabSheet4: TTabSheet;
    Label8: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    E_StationName: TEdit;
    E_Comput: TEdit;
    E_Auditing: TEdit;
    E_Fee: TEdit;
    E_Use: TEdit;
    E_CorpName: TEdit;
    CB_AlwaysPreview: TCheckBox;
    CB_AutoNo: TCheckBox;
    CB_AutoLastCount: TCheckBox;
    CB_IronMode: TCheckBox;
    GroupBox1: TGroupBox;
    CB_WarnExit: TCheckBox;
    CB_WarnBackup: TCheckBox;
    Memo1: TMemo;
    TabSheet3: TTabSheet;
    Label6: TLabel;
    Label9: TLabel;
    E_ImportServer: TEdit;
    SE_ExPNoPort: TSpinEdit;
    SE_FeeLowLimit: TSpinEdit;
    Label10: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Bt_OKClick(Sender: TObject);
    procedure RB_Ammeter_Fix_DateClick(Sender: TObject);
    procedure RB_Ammeter_Sys_DateClick(Sender: TObject);
    procedure RB_Sys_DateClick(Sender: TObject);
    procedure RB_Fix_DateClick(Sender: TObject);
    procedure Bt_CancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Default: TF_Default;

implementation

uses Table_DM, CommSmdljf;

{$R *.DFM}
















procedure TF_Default.FormCreate(Sender: TObject);
begin
	With IniFile Do
    Begin
        //建卡日期
		Default_Fix_Date := ReadBool(DefaultSection,'Fix_Date',True);
    	Default_Date := StrToDate(ReadString(DefaultSection,'Date',DateToStr(Date())));
       	Rb_Fix_Date.Checked := Default_Fix_Date;
       	Rb_Sys_Date.Checked := Not Default_Fix_Date;
        //装表日期
		Default_Ammeter_Fix_Date := ReadBool(DefaultSection,'Ammeter_Fix_Date',True);
    	Default_Ammeter_Date := StrToDate(ReadString(DefaultSection,'Ammeter_Date',DateToStr(Date())));
		Rb_Ammeter_Fix_Date.Checked := Default_Ammeter_Fix_Date;
       	Rb_Ammeter_Sys_Date.Checked := Not Default_Ammeter_Fix_Date;
        WarnExit := ReadBool(DefaultSection,'WarnExit',True);//退出前提示
        WarnBackup := ReadBool(DefaultSection,'WarnBackup',True);//提醒备份数据
		//打印前预览
		AlwaysPreview := ReadBool(DefaultSection,'AlwaysPreview',True);
		//自动编号
		AutoNo := ReadBool(DefaultSection,'AutoNo',True);
        //自动设置底数
		AutoLastCount := ReadBool(DefaultSection,'AutoLastCount',True);
        CorpName := ReadString(DefaultSection,'CorpName','');//公司名称
        //供电所名称
        StationName := ReadString(DefaultSection,'StationName','');
        //核算
		Default_Comput := ReadString(DefaultSection,'Comput','');
        //审核
		Default_Auditing := ReadString(DefaultSection,'Auditing','');
        //使用
		Default_Use := ReadString(DefaultSection,'Use','');
        //收费
		Default_Fee := ReadString(DefaultSection,'Fee','');
        //自动抄表服务器地址
        Default_ImportServer := ReadString(DefaultSection, 'ImportServer', '127.0.0.1');
        //自动抄表端口号
        Default_ExPNoImportPort := ReadInteger(DefaultSection, 'ExPNoImportPort', 1125);
        //加铁损方式结算？
		IronMode := GetIronMode();
        //用电量低于指定值时允许并入下月收费
        FeeLowLimit := ReadInteger(DefaultSection, 'FeeLowLimit', 1);
    End;
end;

procedure TF_Default.Bt_OKClick(Sender: TObject);
begin
    //建卡日期
    Default_Fix_Date := Rb_Fix_Date.Checked;
    Default_Date := DTP_Date.Date ;
    //装表日期
   	Default_Ammeter_Fix_Date := Rb_Ammeter_Fix_Date.Checked;
    Default_Ammeter_Date := DTP_Ammeter_Date.Date ;
    WarnExit := CB_WarnExit.Checked; //退出前提醒
    WarnBackup := CB_WarnBackup.Checked;//退出时提醒备份数据
    //打印预览
	AlwaysPreview := CB_AlwaysPreview.Checked;
    CorpName := E_CorpName.Text;//公司名称
    //用户所名
	StationName := E_StationName.Text;
    //自动编号
	AutoNo := Cb_AutoNo.Checked;
	//自动底数
    AutoLastCount := Cb_AutoLastCount.Checked;
    //核算人,审核人,使用，收费
	Default_Comput := E_Comput.Text;
    Default_Auditing := E_Auditing.Text;
	Default_Use := E_Use.Text;
    Default_Fee := E_Fee.Text;
    //自动抄表服务器地址及端口
    Default_ImportServer := E_ImportServer.Text;
    Default_ExPNoImportPort := SE_ExPNoPort.Value;
    //加铁损结算?
    IronMode := CB_IronMode.Checked;
	SetIronMode(CB_IronMode.Checked);
	//用电量低于此值时允许并入下月收费
    FeeLowLimit := SE_FeeLowLimit.Value;

   	//存储到文件
    With IniFile Do
    Begin
        //建卡日期
        WriteBool(DefaultSection,'Fix_Date',Default_Fix_Date);
        If Rb_Fix_Date.Checked Then
            WriteString(DefaultSection,'Date',DateToStr(Default_Date));
        //装表日期
        WriteBool(DefaultSection,'Ammeter_Fix_Date',Default_Ammeter_Fix_Date);
        If Rb_Ammeter_Fix_Date.Checked Then
            WriteString(DefaultSection,'Ammeter_Date',DateToStr(Default_Ammeter_Date));
        //电表型号
        WriteString(DefaultSection,'Ammeter_Model',Default_Ammeter_Model);
        //CT型号
        WriteString(DefaultSection,'Ct_Model',Default_Ct_Model);
		WriteBool(DefaultSection,'WarnExit',WarnExit);//退出前提醒
		WriteBool(DefaultSection,'WarnBackup',WarnBackup);//提醒备份数据
        WriteBool(DefaultSection,'AlwayPreview',AlwaysPreview);//打印预览
		WriteBool(DefaultSection,'AutoNo',AutoNo);//自动编号
        //自动底数
        WriteBool(DefaultSection,'AutoLastCount',AutoLastCount);
        WriteString(DefaultSection,'CorpName',CorpName);//公司名称
        WriteString(DefaultSection,'StationName',StationName);//电站名称
        //核算
        WriteString(DefaultSection,'Comput',Default_Comput);
        //审核
        WriteString(DefaultSection,'Auditing',Default_Auditing);
        //使用
        WriteString(DefaultSection,'Use',Default_Use);
        //收费
        WriteString(DefaultSection,'Fee',Default_Fee);
        //自动抄表服务器地址
        WriteString(DefaultSection, 'ImportServer', Default_ImportServer);
        //自动抄表端口
        WriteInteger(DefaultSection, 'ExPNoImportPort', Default_ExPNoImportPort);
        //
        WriteInteger(DefaultSection, 'FeeLowLimit', FeeLowLimit);
    End;
    Close();
end;

procedure TF_Default.RB_Ammeter_Fix_DateClick(Sender: TObject);
begin
	DTP_Ammeter_Date.Enabled := True;
end;

procedure TF_Default.RB_Ammeter_Sys_DateClick(Sender: TObject);
begin
	DTP_Ammeter_Date.Enabled := False;
end;

procedure TF_Default.RB_Sys_DateClick(Sender: TObject);
begin
	DTP_Date.Enabled := False;
end;

procedure TF_Default.RB_Fix_DateClick(Sender: TObject);
begin
	DTP_Date.Enabled := True;
end;

procedure TF_Default.Bt_CancelClick(Sender: TObject);
begin
	Close();
end;

procedure TF_Default.FormActivate(Sender: TObject);
begin
    //建卡日期
    DTP_Date.Date := Default_Date;
    //装表日期
    DTP_Ammeter_Date.Date := Default_Ammeter_Date;
	CB_WarnExit.Checked := WarnExit;
    CB_WarnBackup.Checked := WarnBackup;
    CB_AlwaysPreview.Checked := AlwaysPreview;
    CB_AutoNo.Checked := AutoNo;
	CB_AutoLastCount.Checked := AutoLastCount;
	E_CorpName.Text := CorpName;
    E_StationName.Text := StationName;
    E_Comput.Text := Default_Comput;
    E_Auditing.Text := Default_Auditing;
	E_Use.Text := Default_Use;
    E_Fee.Text := Default_Fee;
    E_ImportServer.Text := Default_ImportServer;
    SE_ExPNoPort.Value := Default_ExPNoImportPort;
    CB_IronMode.Checked := IronMode;
    SE_FeeLowLimit.Value := FeeLowLimit;
end;














end.