310 lines
8.1 KiB
ObjectPascal
310 lines
8.1 KiB
ObjectPascal
|
unit U_SelExportField;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
{Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, RM_FormReport, RM_PDBGrid,
|
|||
|
|
DB,IniFiles, RM_Common, RM_Class, RM_e_Xls, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
|
|||
|
|
cxGridLevel, cxClasses, cxControls, cxGridCustomView,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid; }
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, cxStyles, cxCustomData,
|
|||
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit,DBGrids, DB, cxDBData,
|
|||
|
|
cxGridLevel, cxClasses, cxControls, cxGridCustomView, ADODB,StrUtils,
|
|||
|
|
Midas,cxGridCustomTableView, cxGridTableView, cxGridDBTableView,cxTimeEdit,
|
|||
|
|
cxTreeView, cxGrid,cxDBLookupComboBox,cxCalendar, cxCurrencyEdit,cxExportGrid4Link,
|
|||
|
|
ExtCtrls, Buttons,DBClient,FTComboBox,cxDropDownEdit,cxGridBandedTableView,
|
|||
|
|
cxGridDBBandedTableView,cxRichEdit,cxButtonEdit,IniFiles,WinSock;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmSelExportField = class(TForm)
|
|||
|
|
Button1: TButton;
|
|||
|
|
Button2: TButton;
|
|||
|
|
ExportDataSource: TDataSource;
|
|||
|
|
ExpGrid: TcxGridDBTableView;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Panel2: TScrollBox;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
CheckBox1: TCheckBox;
|
|||
|
|
CheckBox2: TCheckBox;
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormDestroy(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
procedure CheckBox1Click(Sender: TObject);
|
|||
|
|
procedure CheckBox2Click(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
procedure CreateCheckBox();
|
|||
|
|
procedure ExportData();
|
|||
|
|
procedure ReadINIFile(fieldname:string);
|
|||
|
|
procedure WriteINIFile(fieldname:string);
|
|||
|
|
Function IsINIFile(fieldname:string):Boolean;
|
|||
|
|
procedure GetExportFields();
|
|||
|
|
procedure IsCheck();
|
|||
|
|
procedure TcxGridToExcel(mfileName:string;gridName:TcxGrid);
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
ExportFields,IniName:string;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmSelExportField: TfrmSelExportField;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
//uses U_SelPrintField,U_FormPas;
|
|||
|
|
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
procedure TfrmSelExportField.CreateCheckBox();
|
|||
|
|
var
|
|||
|
|
i,j,FTop,FLeft,Fdiv,FMod:Integer;// mod <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>div<69><76>
|
|||
|
|
FCheckBox:TCheckBox;
|
|||
|
|
begin
|
|||
|
|
for i:=0 to ExpGrid.ColumnCount-1 do
|
|||
|
|
begin
|
|||
|
|
Fdiv:=(i+1) div 3;
|
|||
|
|
FMod:=(i+1) mod 3;
|
|||
|
|
FCheckBox:=TCheckBox.Create(Self);
|
|||
|
|
FCheckBox.Caption:=Trim(ExpGrid.Columns[i].Caption);
|
|||
|
|
FCheckBox.TabOrder:=i;
|
|||
|
|
FCheckBox.Parent:=Panel2;
|
|||
|
|
FCheckBox.Checked:=True;
|
|||
|
|
if FMod>0 then
|
|||
|
|
FCheckBox.Top:=36*(Fdiv+1)
|
|||
|
|
else
|
|||
|
|
FCheckBox.Top:=36*Fdiv;
|
|||
|
|
if FMod=1 then
|
|||
|
|
FCheckBox.Left:=29
|
|||
|
|
else if FMod=2 then
|
|||
|
|
FCheckBox.Left:=163
|
|||
|
|
else if FMod=0 then
|
|||
|
|
FCheckBox.Left:=305;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmSelExportField.TcxGridToExcel(mfileName:string;gridName:TcxGrid);
|
|||
|
|
var
|
|||
|
|
saveDialog:TSaveDialog;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
saveDialog:=TSaveDialog.Create(nil);
|
|||
|
|
saveDialog.Filter:='xls(*.xls)|*.xls|ȫ<><C8AB>(*.*)|*.*';
|
|||
|
|
saveDialog.Options:=[ofOverwritePrompt];
|
|||
|
|
saveDialog.FileName:=mfileName;
|
|||
|
|
if saveDialog.Execute then
|
|||
|
|
if Assigned(gridName) then
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
|
|||
|
|
ExportGrid4ToExcel(saveDialog.FileName,gridName);
|
|||
|
|
except
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>,Դ<>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4>ڱ༭״̬!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
application.MessageBox('<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
|||
|
|
finally
|
|||
|
|
saveDialog.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.Button1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
//ShowMessage('10<31><30><EFBFBD><EFBFBD>3ȡ<33><C8A1>'+inttostr(10 mod 3)+',ȡ<><C8A1>'+inttostr(10 div 3));
|
|||
|
|
ExportData();
|
|||
|
|
GetExportFields();
|
|||
|
|
if IsINIFile(IniName)=True then
|
|||
|
|
begin
|
|||
|
|
DeleteFile(IniName);
|
|||
|
|
end;
|
|||
|
|
WriteINIFile(IniName);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.FormClose(Sender: TObject;
|
|||
|
|
var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
Action:=caFree;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.FormDestroy(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmSelExportField:=nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
CreateCheckBox();
|
|||
|
|
ReadINIFile(IniName);
|
|||
|
|
IsCheck();
|
|||
|
|
end;
|
|||
|
|
procedure TfrmSelExportField.IsCheck();
|
|||
|
|
var
|
|||
|
|
i:Integer;
|
|||
|
|
fsj:string;
|
|||
|
|
begin
|
|||
|
|
with Panel2 do
|
|||
|
|
begin
|
|||
|
|
for i:=0 to Panel2.ControlCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Controls[i] is TCheckBox then
|
|||
|
|
begin
|
|||
|
|
fsj:=Trim(TCheckBox(Controls[i]).Caption);
|
|||
|
|
if Pos(fsj,ExportFields)>0 then
|
|||
|
|
TCheckBox(Controls[i]).Checked:=True
|
|||
|
|
else
|
|||
|
|
TCheckBox(Controls[i]).Checked:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.ExportData();
|
|||
|
|
var
|
|||
|
|
i,j:Integer;
|
|||
|
|
begin
|
|||
|
|
j:=0;
|
|||
|
|
with Panel2 do
|
|||
|
|
begin
|
|||
|
|
for i:=0 to Panel2.ControlCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Controls[i] is TCheckBox then
|
|||
|
|
begin
|
|||
|
|
if TCheckBox(Controls[i]).Checked=True then
|
|||
|
|
begin
|
|||
|
|
j:=1;
|
|||
|
|
ExpGrid.Columns[TCheckBox(Controls[i]).TabOrder].Visible:=True
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
ExpGrid.Columns[TCheckBox(Controls[i]).TabOrder].Visible:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
TcxGridToExcel(Trim(IniName),cxGrid1);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.Button2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.ReadINIFile(fieldname:string);
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
FName:string;
|
|||
|
|
begin
|
|||
|
|
FName:=ExtractFilePath(Application.ExeName)+'FieldExportSet\' +trim(fieldname)+'.INI';
|
|||
|
|
programIni:=Tinifile.create(FName);
|
|||
|
|
ExportFields:=programIni.ReadString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>','');
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmSelExportField.GetExportFields();
|
|||
|
|
var
|
|||
|
|
i:Integer;
|
|||
|
|
begin
|
|||
|
|
ExportFields:='Begin';
|
|||
|
|
with Panel2 do
|
|||
|
|
begin
|
|||
|
|
for i:=0 to Panel2.ControlCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Controls[i] is TCheckBox then
|
|||
|
|
begin
|
|||
|
|
if TCheckBox(Controls[i]).Checked then
|
|||
|
|
begin
|
|||
|
|
ExportFields:=ExportFields+'/'+TCheckBox(Controls[i]).Caption;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
procedure TfrmSelExportField.WriteINIFile(fieldname:string);
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
FName:string;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
FName:=ExtractFilePath(Application.ExeName)+'FieldExportSet\'+trim(fieldname)+'.INI';
|
|||
|
|
if not DirectoryExists(ExtractFileDir(FName)) then
|
|||
|
|
CreateDir(ExtractFileDir(FName));
|
|||
|
|
programIni:=Tinifile.create(FName);
|
|||
|
|
programIni.WriteString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD>',ExportFields);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function TfrmSelExportField.IsINIFile(fieldname:string):Boolean;
|
|||
|
|
var
|
|||
|
|
FName:string;
|
|||
|
|
begin
|
|||
|
|
FName:=ExtractFilePath(Application.ExeName)+'FieldExportSet\'+trim(fieldname)+'.INI';
|
|||
|
|
if FileExists(FName) then
|
|||
|
|
Result:=True
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.CheckBox1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
i:Integer;
|
|||
|
|
begin
|
|||
|
|
if CheckBox1.Checked then
|
|||
|
|
begin
|
|||
|
|
CheckBox2.Checked:=False;
|
|||
|
|
with Panel2 do
|
|||
|
|
begin
|
|||
|
|
for i:=0 to Panel2.ControlCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Controls[i] is TCheckBox then
|
|||
|
|
begin
|
|||
|
|
if (TCheckBox(Controls[i]).Name<>'CheckBox1') and (TCheckBox(Controls[i]).Name<>'CheckBox2') then
|
|||
|
|
begin
|
|||
|
|
TCheckBox(Controls[i]).Checked:=True;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmSelExportField.CheckBox2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
i:Integer;
|
|||
|
|
begin
|
|||
|
|
if CheckBox2.Checked then
|
|||
|
|
begin
|
|||
|
|
CheckBox1.Checked:=False;
|
|||
|
|
with Panel2 do
|
|||
|
|
begin
|
|||
|
|
for i:=0 to Panel2.ControlCount-1 do
|
|||
|
|
begin
|
|||
|
|
if Controls[i] is TCheckBox then
|
|||
|
|
begin
|
|||
|
|
if (TCheckBox(Controls[i]).Name<>'CheckBox1') and (TCheckBox(Controls[i]).Name<>'CheckBox2') then
|
|||
|
|
begin
|
|||
|
|
TCheckBox(Controls[i]).Checked:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|