excelimportcolset.pas

适合Delphi初学者使用。其中涉及XML文件导入

unit ExcelImportColSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, genModal, StdCtrls, Mask, DBCtrlsEh;

type
  TfrmExcelImportColSet = class(TFormGenModal)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    chkTel: TCheckBox;
    chkRemark: TCheckBox;
    dnName: TDBNumberEditEh;
    dnVIP: TDBNumberEditEh;
    dnTel: TDBNumberEditEh;
    dnRemark: TDBNumberEditEh;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExcelImportColSet: TfrmExcelImportColSet;

implementation

uses genFunc, IniFiles;

{$R *.dfm}

procedure TfrmExcelImportColSet.FormShow(Sender: TObject);
var
  iniFile: TIniFile;
begin
  inherited;
  iniFile := TIniFile.Create(gUserInfo.sAppPath + 'config.ini');
  chkTel.Checked := iniFile.ReadBool(gUserInfo.sTitle, 'ExcelTel', False);
  chkRemark.Checked := iniFile.ReadBool(gUserInfo.sTitle, 'ExcelRemark', False);
  dnName.Value := iniFile.ReadInteger(gUserInfo.sTitle, 'ExcelNameCol', 2);
  dnVIP.Value := iniFile.ReadInteger(gUserInfo.sTitle, 'ExcelVIPCol', 1);
  dnTel.Value := iniFile.ReadInteger(gUserInfo.sTitle, 'ExcelTelCol', 5);
  dnRemark.Value := iniFile.ReadInteger(gUserInfo.sTitle, 'ExcelRemarkCol', 9);
  iniFile.Free;
  //nu
end;

procedure TfrmExcelImportColSet.Button1Click(Sender: TObject);
var
  iniFile: TIniFile;
begin
  inherited;
  iniFile := TIniFile.Create(gUserInfo.sAppPath + 'config.ini');
  iniFile.WriteBool(gUserInfo.sTitle, 'ExcelTel', chkTel.Checked); // chkTel.Checked :=
  iniFile.WriteBool(gUserInfo.sTitle, 'ExcelRemark', chkRemark.Checked); // chkRemark.Checked :=
  iniFile.WriteInteger(gUserInfo.sTitle, 'ExcelNameCol', dnName.Value); //  dnName.Value :=
  iniFile.WriteInteger(gUserInfo.sTitle, 'ExcelVIPCol', dnVIP.Value); //dnVIP.Value :=
  iniFile.WriteInteger(gUserInfo.sTitle, 'ExcelTelCol', dnTel.Value); //dnTel.Value :=
  iniFile.WriteInteger(gUserInfo.sTitle, 'ExcelRemarkCol', dnRemark.Value); //dnRemark.Value :=
  iniFile.Free;
  Close;
end;

procedure TfrmExcelImportColSet.Button2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.