91 lines
2.8 KiB
ObjectPascal
91 lines
2.8 KiB
ObjectPascal
unit U_BaseList;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
|
|
Data.Win.ADODB, U_WindowFormdesign, cxGraphics, cxControls, cxLookAndFeels,
|
|
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI,
|
|
cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator,
|
|
dxDateRanges, dxScrollbarAnnotations, cxDBData, cxGridLevel, cxClasses,
|
|
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxGrid;
|
|
|
|
type
|
|
TfrmBaseList = class(TForm)
|
|
ADOQueryBaseCmd: TADOQuery;
|
|
ADOQueryBaseTemp: TADOQuery;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
private
|
|
fWindowDesign: TWindowFormdesign;
|
|
protected
|
|
fParameters1: string;
|
|
fParameters2: string;
|
|
fParameters3: string;
|
|
fParameters4: string;
|
|
fParameters5: string;
|
|
fParameters10: string;
|
|
public
|
|
fFormId: integer;
|
|
fIsCanDesign:boolean;
|
|
constructor Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
|
|
// procedure CreateCxGridColumn(tv1: TcxGridDBTableView; ADOQueryTmp: TADOQuery; mdesignCode, mGridName: string; HasFooter: boolean = true);
|
|
end;
|
|
|
|
var
|
|
frmBaseList: TfrmBaseList;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_RTFun, U_globalVar, U_dataLink;
|
|
{$R *.dfm}
|
|
|
|
constructor TfrmBaseList.Create(AOwner: TComponent; ACaption: string=''; Parameters1: string=''; Parameters2: string=''; Parameters3: string=''; Parameters4: string=''; Parameters5: string=''; Parameters10: string='';FormID:Integer=0);
|
|
begin
|
|
inherited Create(AOwner);
|
|
if ACaption <> '' then
|
|
Caption := ACaption;
|
|
|
|
fParameters1 := Parameters1;
|
|
fParameters2 := Parameters2;
|
|
fParameters3 := Parameters3;
|
|
fParameters4 := Parameters4;
|
|
fParameters5 := Parameters5;
|
|
fParameters10 := Parameters10;
|
|
fFormId:=FormID;
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
if WriteCloseWin(ADOQueryBaseCmd, self.Caption, fFormId, gDllFileName) then
|
|
begin
|
|
Sendmessage(application.MainForm.Handle, WM_CloseForm, 4, 0);
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormCreate(Sender: TObject);
|
|
begin
|
|
fWindowDesign := TWindowFormdesign.Create();
|
|
//gIsCanDesign :=fWindowDesign.IsHasDesignRight(ADOQueryBaseTemp) ;
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormDestroy(Sender: TObject);
|
|
begin
|
|
fWindowDesign.free;
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormShow(Sender: TObject);
|
|
begin
|
|
fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
|
|
end;
|
|
|
|
|
|
end.
|
|
|