Group_01/D7FZaideng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-15 15:54:17 +08:00
parent da8675e4a7
commit a26334784d
8 changed files with 69 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
基础资料维护(BaseInfo.dll)/U_MLXXList.dfm
View File

@ -209,7 +209,7 @@ object frmMLXXList: TfrmMLXXList
Width = 94
end
object v2Column6: TcxGridDBColumn
Caption = #36741#26009#21517#31216
Caption = #38754#36741#26009#21517#31216' '
DataBinding.FieldName = 'MLName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -359,6 +359,11 @@ object frmMLXXList: TfrmMLXXList
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv2Column8: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MLSH'
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2

3
基础资料维护(BaseInfo.dll)/U_MLXXList.pas
View File

@ -32,7 +32,7 @@ type
FdDy = record
inc: integer; //客户端套接字句柄
FDdys: string[32]; //客户端套接字
FdDysName: string[32]; //客户端套接字
FdDysName: string[32]; //客户端套接字
end;
TfrmMLXXList = class(TForm)
@ -84,6 +84,7 @@ type
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

8
基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm
View File

@ -222,7 +222,7 @@ object frmMLXXListSel: TfrmMLXXListSel
Width = 94
end
object v2Column6: TcxGridDBColumn
Caption = #36741#26009#21517#31216
Caption = #38754#36741#26009#21517#31216' '
DataBinding.FieldName = 'MLName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -380,6 +380,12 @@ object frmMLXXListSel: TfrmMLXXListSel
Properties.NullStyle = nssUnchecked
Width = 60
end
object Tv2Column9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MLSH'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2

1
基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas
View File

@ -86,6 +86,7 @@ type
Tv2Column7: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

6
基础资料维护(BaseInfo.dll)/U_MLXXinput.dfm
View File

@ -178,6 +178,12 @@ object frmMLXXinput: TfrmMLXXinput
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MLSH'
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1

3
基础资料维护(BaseInfo.dll)/U_MLXXinput.pas
View File

@ -60,6 +60,7 @@ type
ToolButton4: TToolButton;
OpenDialog1: TOpenDialog;
CDS_LM: TClientDataSet;
Tv1Column9: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -499,7 +500,7 @@ begin
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
excelApp := Unassigned;
WorkBook := Unassigned;
exit;
end;

9
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.dfm
View File

@ -547,6 +547,13 @@ object frmZdyAttInputCP_CB: TfrmZdyAttInputCP_CB
object V1Column1: TcxGridDBColumn
Caption = #38754#36741#26009#21517#31216
DataBinding.FieldName = 'defstr1'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = V1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 100
end
@ -1142,7 +1149,7 @@ object frmZdyAttInputCP_CB: TfrmZdyAttInputCP_CB
Aggregates = <>
Params = <>
Left = 212
Top = 347
Top = 387
end
object CDS3: TClientDataSet
Aggregates = <>

37
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
View File

@ -193,6 +193,7 @@ type
procedure CYColorBtnClick(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure V1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
function savedata(): Boolean;
function savedatacb(): Boolean;
@ -1438,5 +1439,41 @@ begin
jscb();
end;
procedure TfrmZdyAttInputCP_CB.V1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmMLXXListSel := TfrmMLXXListSel.create(self);
with frmMLXXListSel do
begin
if showmodal = 1 then
begin
with CDS_HZ do
begin
DisableControls;
// First;
// while not eof do
// begin
if Fieldbyname('ssel').AsBoolean then
begin
cds1.edit;
cds1.FieldByName('DEFstr1').Value := trim(CDS_HZ.fieldbyname('MLName').AsString);
cds1.FieldByName('CBColor').Value := trim(CDS_HZ.fieldbyname('Color').AsString);
cds1.FieldByName('defstr4').Value := trim(CDS_HZ.fieldbyname('GYS').AsString);
cds1.FieldByName('defstr2').Value := trim(CDS_HZ.fieldbyname('Adultamount').AsString);
cds1.FieldByName('defstr3').Value := trim(CDS_HZ.fieldbyname('childamount').AsString);
cds1.FieldByName('CBdj').Value := trim(CDS_HZ.fieldbyname('Price').AsString);
cds1.post;
end;
// next;
// end;
EnableControls;
end;
tv1.Controller.EditingController.ShowEdit();
free;
end;
end;
end;
end.