shoufeiset.pas

电力行业前台收费程序,需要有后台SQL数据库,和电费管理系统配合应用.

unit ShouFeiSet;

interface

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

type
  TFormSetup = class(TForm)
    ButtonOK: TButton;
    ButtonCancel: TButton;
    ButtonAdv: TButton;
    CheckBoxFC: TCheckBox;
    Bevel1: TBevel;
    Label1: TLabel;
    SpeedButtonPath: TSpeedButton;
    OpenDialog: TOpenDialog;
    CheckBoxYJ: TCheckBox;
    EditYJReport: TEdit;
    SpeedButtonYJPath: TSpeedButton;
    CheckBoxZHNJ: TCheckBox;
    SpeedButtonDel: TSpeedButton;
    ListViewFP: TListView;
    SpeedButtonEdit: TSpeedButton;
    CheckBoxJEQZ: TCheckBox;
    ComboBoxQZ: TComboBox;
    CheckBoxDP: TCheckBox;
    CheckBoxVD: TCheckBox;
    procedure ButtonAdvClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure SpeedButtonPathClick(Sender: TObject);
    procedure SpeedButtonYJPathClick(Sender: TObject);
    procedure CheckBoxYJClick(Sender: TObject);
    procedure SpeedButtonDelClick(Sender: TObject);
    procedure SpeedButtonEditClick(Sender: TObject);
    procedure CheckBoxJEQZClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses AdvanceSEt, MainForm;

{$R *.DFM}

procedure TFormSetup.ButtonAdvClick(Sender: TObject);
var
  FormAdvance: TFormAdvance;
begin
  if HaveThesePower(OpID,'sf_xt_zhanghu','系统设置')<>1 then begin
    ShowMessage('当前帐号没有进入高级设置的权利!');
    Exit;
  end;
  FormAdvance:=TFormAdvance.Create(Self);
  FormAdvance.Showmodal;
  FormAdvance.Free;
end;

procedure TFormSetup.FormCreate(Sender: TObject);
var
  FPNameList : TStringList;
  i          : Integer;
begin
  CheckBoxFC.Checked:=IniFile.ReadBool('设置','分次收费',True);
  CheckBoxZHNJ.Checked:=IniFile.ReadBool('设置','指定滞纳金',False);
  CheckBoxJEQZ.Checked:=IniFile.ReadBool('设置','金额取整',False);
  CheckBoxDP.Checked:=IniFile.ReadBool('设置','直接预览',False);
  CheckBoxVD.Checked:=IniFile.ReadBool('设置','显示明细',False);  
  ComboBoxQZ.Enabled:=CheckBoxJEQZ.Checked;
  ComboBoxQZ.ItemIndex:=IniFile.ReadInteger('设置','取整到',1);

  ListViewFP.Items.Clear;
  FPNameList := TStringList.Create;
  IniFile.ReadSection('发票格式',FPNameList);
  for I:=0 to FPNameList.Count-1 do begin
      with ListViewFP.Items.Add do begin
           Caption:=FPNameList.Strings[I];
           SubItems.Add(IniFile.ReadString('发票格式',FPNameList.Strings[I],''));
      end;
  end;
  FPNameList.Free;
  CheckBoxYJ.Checked:=IniFile.ReadBool('设置','预收费',False);
  EditYJReport.Text:=IniFile.ReadString('设置','预收报表','');
  EditYJReport.Enabled:=CheckBoxYJ.Checked;
  SpeedButtonYJPath.Enabled:=CheckBoxYJ.Checked;
end;

procedure TFormSetup.ButtonOKClick(Sender: TObject);
var
  i : Integer;
begin
  if (CheckBoxYJ.Checked) and (EditYJReport.Text='') then begin
      ShowMessage('预交收据格式不能为空!');
      Exit;
  end;
  IniFile.WriteBool('设置','分次收费',CheckBoxFC.Checked);
  IniFile.WriteBool('设置','指定滞纳金',CheckBoxZHNJ.Checked);
  IniFile.WriteBool('设置','预收费',CheckBoxYJ.Checked);
  IniFile.WriteBool('设置','金额取整',CheckBoxJEQZ.Checked);
  IniFile.WriteBool('设置','直接预览',CheckBoxDP.Checked);
  IniFile.WriteBool('设置','显示明细',CheckBoxVD.Checked);
  IniFile.WriteInteger('设置','取整到',ComboBoxQZ.ItemIndex);
  IniFile.WriteString('设置','预收报表',EditYJReport.Text);
  IniFile.EraseSection('发票格式');
  for i:=0 to ListViewFP.Items.Count-1 do
    IniFile.WriteString('发票格式',ListViewFP.Items[i].Caption,ListViewFP.Items[i].SubItems[0]);
  ModalResult:=mrOK;
end;

procedure TFormSetup.SpeedButtonPathClick(Sender: TObject);
var
  FPName : String;
begin
  if InputQuery('','请输入发票名称:',FPName) then begin
     if FPName='' then begin
        ShowMessage('发票名称不允许为空!');
        Exit;
     end;
     OpenDialog.InitialDir:=ExtractFileDir(Application.ExeName);
     if OpenDialog.Execute then
        with ListViewFP.Items.Add do begin
             Caption:=FPName;
             SubItems.Add(OpenDialog.FileName);
        end;
  end;
end;

procedure TFormSetup.SpeedButtonYJPathClick(Sender: TObject);
begin
  OpenDialog.InitialDir:=ExtractFileDir(Application.ExeName);
  if OpenDialog.Execute then
    EditYJReport.Text:=OpenDialog.FileName;
end;

procedure TFormSetup.CheckBoxYJClick(Sender: TObject);
begin
  EditYJReport.Enabled:=CheckBoxYJ.Checked;
  SpeedButtonYJPath.Enabled:=CheckBoxYJ.Checked;
end;

procedure TFormSetup.SpeedButtonDelClick(Sender: TObject);
begin
  if Assigned(ListViewFP.Selected) then
     ListViewFP.Items.Delete(ListViewFP.Selected.Index);
end;

procedure TFormSetup.SpeedButtonEditClick(Sender: TObject);
var
  FPName : String;
begin
  if Assigned(ListViewFP.Selected) then begin
     FPName:=ListViewFP.Selected.Caption;
     if InputQuery('','请输入发票名称:',FPName) then begin
        if FPName='' then begin
           ShowMessage('发票名称不允许为空!');
           Exit;
        end;
        with ListViewFP.Selected do begin
            OpenDialog.InitialDir:=ExtractFileDir(SubItems[0]);
            if OpenDialog.Execute then
               SubItems[0]:=OpenDialog.FileName;
        end;
     end;
  end;
end;

procedure TFormSetup.CheckBoxJEQZClick(Sender: TObject);
begin
  ComboBoxQZ.Enabled:=CheckBoxJEQZ.Checked;
end;

end.