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,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
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
TfrmZDYHelp = class(TfrmBaseInput)
@ -44,7 +60,6 @@ type
V1HelpType: TcxGridDBColumn;
V1note1: TcxGridDBColumn;
ImageList1: TImageList;
cxImageList_bar: TcxImageList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
@ -55,13 +70,13 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ZDYNameChange(Sender: TObject);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ZDYNamePropertiesChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
@ -329,7 +344,7 @@ procedure TfrmZDYHelp.FormShow(Sender: TObject);
var
fsj, fsj1: string;
begin
inherited;
// inherited;
InitGrid();
fsj := Trim(flag) + '01';
@ -373,7 +388,7 @@ begin
end;
end;
procedure TfrmZDYHelp.ZDYNameChange(Sender: TObject);
procedure TfrmZDYHelp.ZDYNamePropertiesChange(Sender: TObject);
var
fsj: string;
begin