rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

自定义窗体更新 （必须替换 否则会保存）

Browse Source
This commit is contained in:
“ddf” 2024-11-04 16:10:46 +08:00
parent fbed66c989
commit d376da5819
2 changed files with 36 additions and 5711 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5722
public10/ThreeFun/Form/U_ZDYHelp.dfm
View File

File diff suppressed because it is too large Load Diff

25
public10/ThreeFun/Form/U_ZDYHelp.pas
View File

@ -10,7 +10,23 @@ uses
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, cxContainer, cxImageList; dxDateRanges, dxBarBuiltInMenu, System.ImageList, cxContainer, cxImageList,
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, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
type type
TfrmZDYHelp = class(TfrmBaseInput) TfrmZDYHelp = class(TfrmBaseInput)
@ -44,7 +60,6 @@ type
V1HelpType: TcxGridDBColumn; V1HelpType: TcxGridDBColumn;
V1note1: TcxGridDBColumn; V1note1: TcxGridDBColumn;
ImageList1: TImageList; ImageList1: TImageList;
cxImageList_bar: TcxImageList;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
@ -55,13 +70,13 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject); procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
procedure V1NamePropertiesEditValueChanged(Sender: TObject); procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject); procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject); procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject); procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject); procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure ZDYNamePropertiesChange(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -329,7 +344,7 @@ procedure TfrmZDYHelp.FormShow(Sender: TObject);
var var
fsj, fsj1: string; fsj, fsj1: string;
begin begin
inherited; // inherited;
InitGrid(); InitGrid();
fsj := Trim(flag) + '01'; fsj := Trim(flag) + '01';
@ -373,7 +388,7 @@ begin
end; end;
end; end;
procedure TfrmZDYHelp.ZDYNameChange(Sender: TObject); procedure TfrmZDYHelp.ZDYNamePropertiesChange(Sender: TObject);
var var
fsj: string; fsj: string;
begin begin