114 lines
3.9 KiB
ObjectPascal
114 lines
3.9 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, cxContainer, cxProgressBar, dxSkinBasic, dxSkinBlack, dxSkinBlue,
|
|
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
|
|
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
|
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
|
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
|
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
|
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
|
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
|
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
|
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
|
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
|
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
|
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
|
|
dxSkinXmas2008Blue;
|
|
|
|
type
|
|
TfrmBaseList = class(TForm)
|
|
ADOQueryBaseCmd: TADOQuery;
|
|
ADOQueryBaseTemp: TADOQuery;
|
|
cxProgressBar2: TcxProgressBar;
|
|
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);
|
|
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();
|
|
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormDestroy(Sender: TObject);
|
|
begin
|
|
fWindowDesign.free;
|
|
end;
|
|
|
|
procedure TfrmBaseList.FormShow(Sender: TObject);
|
|
begin
|
|
if DParameters8<>'1' then
|
|
begin
|
|
if trim(gStructVer)='' then
|
|
fWindowDesign.FormStyleInit1(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10)
|
|
else
|
|
fWindowDesign.FormStyleInit(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|
|
|