david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
379 lines
12 KiB
ObjectPascal
379 lines
12 KiB
ObjectPascal
unit StylesMultiDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, cxClasses, cxStyles, DB, Classes, cxVGrid, DBTables, Forms;
|
|
|
|
type
|
|
TStylesMultiDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
strepPredefined: TcxStyleRepository;
|
|
strepUserDefined: TcxStyleRepository;
|
|
queOrders: TQuery;
|
|
queOrdersPurchaseDate: TDateTimeField;
|
|
queOrdersTime: TDateTimeField;
|
|
queOrdersPaymentType: TStringField;
|
|
queOrdersPaymentAmount: TFloatField;
|
|
queOrdersQuantity: TIntegerField;
|
|
queOrdersFirstName: TStringField;
|
|
queOrdersLastName: TStringField;
|
|
queOrdersCompany: TStringField;
|
|
queOrdersPrefix: TStringField;
|
|
queOrdersTitle: TStringField;
|
|
queOrdersAddress: TStringField;
|
|
queOrdersCity: TStringField;
|
|
queOrdersState: TStringField;
|
|
queOrdersZipCode: TStringField;
|
|
queOrdersSource: TStringField;
|
|
queOrdersCustomer: TStringField;
|
|
queOrdersHomePhone: TStringField;
|
|
queOrdersFaxPhone: TStringField;
|
|
queOrdersSpouse: TStringField;
|
|
queOrdersOccupation: TStringField;
|
|
queOrdersEmail: TStringField;
|
|
queOrdersTrademark: TStringField;
|
|
queOrdersModel: TStringField;
|
|
queOrdersHP: TSmallintField;
|
|
queOrdersLiter: TFloatField;
|
|
queOrdersCyl: TSmallintField;
|
|
queOrdersTransmissSpeedCount: TSmallintField;
|
|
queOrdersTransmissAutomatic: TStringField;
|
|
queOrdersMPG_City: TSmallintField;
|
|
queOrdersMPG_Highway: TSmallintField;
|
|
queOrdersCategory: TStringField;
|
|
queOrdersCars_Description: TMemoField;
|
|
queOrdersHyperlink: TStringField;
|
|
queOrdersPicture: TBlobField;
|
|
queOrdersPrice: TFloatField;
|
|
dsOrders: TDataSource;
|
|
cxVerticalGridStyleSheetDevExpress: TcxVerticalGridStyleSheet;
|
|
cxStyle1: TcxStyle;
|
|
cxStyle2: TcxStyle;
|
|
cxStyle3: TcxStyle;
|
|
cxStyle4: TcxStyle;
|
|
cxStyle5: TcxStyle;
|
|
cxStyle6: TcxStyle;
|
|
cxStyle7: TcxStyle;
|
|
cxVerticalGridStyleSheetUserFormat1: TcxVerticalGridStyleSheet;
|
|
cxStyle8: TcxStyle;
|
|
cxStyle9: TcxStyle;
|
|
cxStyle10: TcxStyle;
|
|
cxStyle11: TcxStyle;
|
|
cxStyle12: TcxStyle;
|
|
cxStyle13: TcxStyle;
|
|
cxVerticalGridStyleSheetUserFormat2: TcxVerticalGridStyleSheet;
|
|
cxStyle14: TcxStyle;
|
|
cxStyle15: TcxStyle;
|
|
cxStyle16: TcxStyle;
|
|
cxStyle17: TcxStyle;
|
|
cxStyle18: TcxStyle;
|
|
cxStyle19: TcxStyle;
|
|
cxVerticalGridStyleSheetUserFormat3: TcxVerticalGridStyleSheet;
|
|
cxStyle20: TcxStyle;
|
|
cxStyle21: TcxStyle;
|
|
cxStyle22: TcxStyle;
|
|
cxStyle23: TcxStyle;
|
|
cxStyle24: TcxStyle;
|
|
cxStyle25: TcxStyle;
|
|
cxVerticalGridStyleSheetUserFormat4: TcxVerticalGridStyleSheet;
|
|
cxStyle26: TcxStyle;
|
|
cxStyle27: TcxStyle;
|
|
cxStyle28: TcxStyle;
|
|
cxStyle29: TcxStyle;
|
|
cxStyle30: TcxStyle;
|
|
cxStyle31: TcxStyle;
|
|
cxStyle32: TcxStyle;
|
|
cxVerticalGridStyleSheetBrick: TcxVerticalGridStyleSheet;
|
|
cxStyle33: TcxStyle;
|
|
cxStyle34: TcxStyle;
|
|
cxStyle35: TcxStyle;
|
|
cxStyle36: TcxStyle;
|
|
cxStyle37: TcxStyle;
|
|
cxStyle38: TcxStyle;
|
|
cxVerticalGridStyleDesert: TcxVerticalGridStyleSheet;
|
|
cxStyle39: TcxStyle;
|
|
cxStyle40: TcxStyle;
|
|
cxStyle41: TcxStyle;
|
|
cxStyle42: TcxStyle;
|
|
cxStyle43: TcxStyle;
|
|
cxStyle44: TcxStyle;
|
|
cxVerticalGridStyleSheetEggplant: TcxVerticalGridStyleSheet;
|
|
cxStyle45: TcxStyle;
|
|
cxStyle46: TcxStyle;
|
|
cxStyle47: TcxStyle;
|
|
cxStyle48: TcxStyle;
|
|
cxStyle49: TcxStyle;
|
|
cxStyle50: TcxStyle;
|
|
cxVerticalGridStyleSheetLilac: TcxVerticalGridStyleSheet;
|
|
cxStyle51: TcxStyle;
|
|
cxStyle52: TcxStyle;
|
|
cxStyle53: TcxStyle;
|
|
cxStyle54: TcxStyle;
|
|
cxStyle55: TcxStyle;
|
|
cxStyle56: TcxStyle;
|
|
cxVerticalGridStyleSheetMaple: TcxVerticalGridStyleSheet;
|
|
cxStyle57: TcxStyle;
|
|
cxStyle58: TcxStyle;
|
|
cxStyle59: TcxStyle;
|
|
cxStyle60: TcxStyle;
|
|
cxStyle61: TcxStyle;
|
|
cxStyle62: TcxStyle;
|
|
cxVerticalGridStyleSheetMarineHighColor: TcxVerticalGridStyleSheet;
|
|
cxStyle63: TcxStyle;
|
|
cxStyle64: TcxStyle;
|
|
cxStyle65: TcxStyle;
|
|
cxStyle66: TcxStyle;
|
|
cxStyle67: TcxStyle;
|
|
cxStyle68: TcxStyle;
|
|
cxVerticalGridStyleSheetPlumHighColor: TcxVerticalGridStyleSheet;
|
|
cxStyle69: TcxStyle;
|
|
cxStyle70: TcxStyle;
|
|
cxStyle71: TcxStyle;
|
|
cxStyle72: TcxStyle;
|
|
cxStyle73: TcxStyle;
|
|
cxStyle74: TcxStyle;
|
|
cxVerticalGridStyleSheetPumpkinLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle75: TcxStyle;
|
|
cxStyle76: TcxStyle;
|
|
cxStyle77: TcxStyle;
|
|
cxStyle78: TcxStyle;
|
|
cxStyle79: TcxStyle;
|
|
cxStyle80: TcxStyle;
|
|
cxVerticalGridStyleSheetRainyDay: TcxVerticalGridStyleSheet;
|
|
cxStyle81: TcxStyle;
|
|
cxStyle82: TcxStyle;
|
|
cxStyle83: TcxStyle;
|
|
cxStyle84: TcxStyle;
|
|
cxStyle85: TcxStyle;
|
|
cxStyle86: TcxStyle;
|
|
cxVerticalGridStyleSheetRedWhiteAndBlueVGA: TcxVerticalGridStyleSheet;
|
|
cxStyle87: TcxStyle;
|
|
cxStyle88: TcxStyle;
|
|
cxStyle89: TcxStyle;
|
|
cxStyle90: TcxStyle;
|
|
cxStyle91: TcxStyle;
|
|
cxStyle92: TcxStyle;
|
|
cxVerticalGridStyleSheetRose: TcxVerticalGridStyleSheet;
|
|
cxStyle93: TcxStyle;
|
|
cxStyle94: TcxStyle;
|
|
cxStyle95: TcxStyle;
|
|
cxStyle96: TcxStyle;
|
|
cxStyle97: TcxStyle;
|
|
cxStyle98: TcxStyle;
|
|
cxVerticalGridStyleSheetRoseLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle99: TcxStyle;
|
|
cxStyle100: TcxStyle;
|
|
cxStyle101: TcxStyle;
|
|
cxStyle102: TcxStyle;
|
|
cxStyle103: TcxStyle;
|
|
cxStyle104: TcxStyle;
|
|
cxVerticalGridStyleSheetSlate: TcxVerticalGridStyleSheet;
|
|
cxStyle105: TcxStyle;
|
|
cxStyle106: TcxStyle;
|
|
cxStyle107: TcxStyle;
|
|
cxStyle108: TcxStyle;
|
|
cxStyle109: TcxStyle;
|
|
cxStyle110: TcxStyle;
|
|
cxVerticalGridStyleSheetSpruce: TcxVerticalGridStyleSheet;
|
|
cxStyle111: TcxStyle;
|
|
cxStyle112: TcxStyle;
|
|
cxStyle113: TcxStyle;
|
|
cxStyle114: TcxStyle;
|
|
cxStyle115: TcxStyle;
|
|
cxStyle116: TcxStyle;
|
|
cxVerticalGridStyleSheetStormVGA: TcxVerticalGridStyleSheet;
|
|
cxStyle117: TcxStyle;
|
|
cxStyle118: TcxStyle;
|
|
cxStyle119: TcxStyle;
|
|
cxStyle120: TcxStyle;
|
|
cxStyle121: TcxStyle;
|
|
cxStyle122: TcxStyle;
|
|
cxVerticalGridStyleSheetTealVGA: TcxVerticalGridStyleSheet;
|
|
cxStyle123: TcxStyle;
|
|
cxStyle124: TcxStyle;
|
|
cxStyle125: TcxStyle;
|
|
cxStyle126: TcxStyle;
|
|
cxStyle127: TcxStyle;
|
|
cxStyle128: TcxStyle;
|
|
cxVerticalGridStyleSheetWheat: TcxVerticalGridStyleSheet;
|
|
cxStyle129: TcxStyle;
|
|
cxStyle130: TcxStyle;
|
|
cxStyle131: TcxStyle;
|
|
cxStyle132: TcxStyle;
|
|
cxStyle133: TcxStyle;
|
|
cxStyle134: TcxStyle;
|
|
cxVerticalGridStyleSheetWindowsClassic: TcxVerticalGridStyleSheet;
|
|
cxStyle135: TcxStyle;
|
|
cxStyle136: TcxStyle;
|
|
cxStyle137: TcxStyle;
|
|
cxStyle138: TcxStyle;
|
|
cxStyle139: TcxStyle;
|
|
cxVerticalGridStyleSheetWindowsClassicLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle140: TcxStyle;
|
|
cxStyle141: TcxStyle;
|
|
cxStyle142: TcxStyle;
|
|
cxStyle143: TcxStyle;
|
|
cxStyle144: TcxStyle;
|
|
cxVerticalGridStyleSheetWindowsStandard: TcxVerticalGridStyleSheet;
|
|
cxStyle145: TcxStyle;
|
|
cxStyle146: TcxStyle;
|
|
cxStyle147: TcxStyle;
|
|
cxStyle148: TcxStyle;
|
|
cxStyle149: TcxStyle;
|
|
cxVerticalGridStyleSheetWindowsStandardLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle150: TcxStyle;
|
|
cxStyle151: TcxStyle;
|
|
cxStyle152: TcxStyle;
|
|
cxStyle153: TcxStyle;
|
|
cxStyle154: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrast1: TcxVerticalGridStyleSheet;
|
|
cxStyle155: TcxStyle;
|
|
cxStyle156: TcxStyle;
|
|
cxStyle157: TcxStyle;
|
|
cxStyle158: TcxStyle;
|
|
cxStyle159: TcxStyle;
|
|
cxStyle160: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrast1Large: TcxVerticalGridStyleSheet;
|
|
cxStyle161: TcxStyle;
|
|
cxStyle162: TcxStyle;
|
|
cxStyle163: TcxStyle;
|
|
cxStyle164: TcxStyle;
|
|
cxStyle165: TcxStyle;
|
|
cxStyle166: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrast2: TcxVerticalGridStyleSheet;
|
|
cxStyle167: TcxStyle;
|
|
cxStyle168: TcxStyle;
|
|
cxStyle169: TcxStyle;
|
|
cxStyle170: TcxStyle;
|
|
cxStyle171: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrast2Large: TcxVerticalGridStyleSheet;
|
|
cxStyle172: TcxStyle;
|
|
cxStyle173: TcxStyle;
|
|
cxStyle174: TcxStyle;
|
|
cxStyle175: TcxStyle;
|
|
cxStyle176: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrastBlack: TcxVerticalGridStyleSheet;
|
|
cxStyle177: TcxStyle;
|
|
cxStyle178: TcxStyle;
|
|
cxStyle179: TcxStyle;
|
|
cxStyle180: TcxStyle;
|
|
cxStyle181: TcxStyle;
|
|
cxStyle182: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrastBlackLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle183: TcxStyle;
|
|
cxStyle184: TcxStyle;
|
|
cxStyle185: TcxStyle;
|
|
cxStyle186: TcxStyle;
|
|
cxStyle187: TcxStyle;
|
|
cxStyle188: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrastWhite: TcxVerticalGridStyleSheet;
|
|
cxStyle189: TcxStyle;
|
|
cxStyle190: TcxStyle;
|
|
cxStyle191: TcxStyle;
|
|
cxStyle192: TcxStyle;
|
|
cxStyle193: TcxStyle;
|
|
cxVerticalGridStyleSheetHighContrastWhiteLarge: TcxVerticalGridStyleSheet;
|
|
cxStyle194: TcxStyle;
|
|
cxStyle195: TcxStyle;
|
|
cxStyle196: TcxStyle;
|
|
cxStyle197: TcxStyle;
|
|
cxStyle198: TcxStyle;
|
|
cxStyle199: TcxStyle;
|
|
cxStyle200: TcxStyle;
|
|
cxStyle201: TcxStyle;
|
|
cxStyle202: TcxStyle;
|
|
cxStyle203: TcxStyle;
|
|
cxStyle204: TcxStyle;
|
|
cxStyle205: TcxStyle;
|
|
cxStyle206: TcxStyle;
|
|
cxStyle207: TcxStyle;
|
|
cxStyle208: TcxStyle;
|
|
cxStyle209: TcxStyle;
|
|
cxStyle210: TcxStyle;
|
|
cxStyle211: TcxStyle;
|
|
cxStyle212: TcxStyle;
|
|
cxStyle213: TcxStyle;
|
|
cxStyle214: TcxStyle;
|
|
cxStyle215: TcxStyle;
|
|
cxStyle216: TcxStyle;
|
|
cxStyle217: TcxStyle;
|
|
cxStyle218: TcxStyle;
|
|
cxStyle219: TcxStyle;
|
|
cxStyle220: TcxStyle;
|
|
cxStyle221: TcxStyle;
|
|
cxStyle222: TcxStyle;
|
|
cxStyle223: TcxStyle;
|
|
cxStyle224: TcxStyle;
|
|
cxStyle225: TcxStyle;
|
|
cxStyle226: TcxStyle;
|
|
Classic: TcxVerticalGridStyleSheet;
|
|
Alternative: TcxVerticalGridStyleSheet;
|
|
Bitmaps: TcxVerticalGridStyleSheet;
|
|
cxStyle227: TcxStyle;
|
|
cxStyle228: TcxStyle;
|
|
cxStyle229: TcxStyle;
|
|
cxStyle230: TcxStyle;
|
|
cxStyle231: TcxStyle;
|
|
cxStyle232: TcxStyle;
|
|
updOrders: TUpdateSQL;
|
|
updCustomers: TUpdateSQL;
|
|
updCars: TUpdateSQL;
|
|
procedure queOrdersUpdateRecord(DataSet: TDataSet;
|
|
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
|
|
procedure queOrdersAfterPost(DataSet: TDataSet);
|
|
procedure queOrdersAfterCancel(DataSet: TDataSet);
|
|
procedure StylesMultiDemoDataDMCreate(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
StylesMultiDemoDataDM: TStylesMultiDemoDataDM;
|
|
|
|
procedure PopulateStyleSheetsList(const AList: TList);
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure PopulateStyleSheetsList(const AList: TList);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
if AList <> nil then
|
|
begin
|
|
AList.Clear;
|
|
with StylesMultiDemoDataDM.strepUserDefined do
|
|
for I:= 0 to StyleSheetCount - 1 do
|
|
AList.Add(StyleSheets[I]);
|
|
end;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoDataDM.queOrdersUpdateRecord(DataSet: TDataSet;
|
|
UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
|
|
begin
|
|
updOrders.Apply(UpdateKind);
|
|
updCustomers.Apply(UpdateKind);
|
|
updCars.Apply(UpdateKind);
|
|
UpdateAction := uaApplied;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoDataDM.queOrdersAfterPost(DataSet: TDataSet);
|
|
begin
|
|
queOrders.ApplyUpdates;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoDataDM.queOrdersAfterCancel(DataSet: TDataSet);
|
|
begin
|
|
queOrders.CancelUpdates;
|
|
end;
|
|
|
|
procedure TStylesMultiDemoDataDM.StylesMultiDemoDataDMCreate(
|
|
Sender: TObject);
|
|
begin
|
|
updOrders.DataSet := queOrders;
|
|
updCustomers.DataSet := queOrders;
|
|
updCars.DataSet := queOrders;
|
|
end;
|
|
|
|
end.
|