Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改一码通

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 15:12:50 +08:00
parent ce5209fc37
commit b27c0bc6f1
2 changed files with 158 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
云翔一码通/U_YMTJGWCList.dfm
View File

@ -1,6 +1,6 @@
object frmYMTJGWCList: TfrmYMTJGWCList
Left = 316
Top = 278
Left = 631
Top = 430
Width = 1370
Height = 750
Caption = #21152#24037#23436#25104#22238#20179#25968#25454
@ -23,7 +23,7 @@ object frmYMTJGWCList: TfrmYMTJGWCList
Width = 1362
Height = 33
ButtonHeight = 30
ButtonWidth = 59
ButtonWidth = 107
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
@ -62,16 +62,24 @@ object frmYMTJGWCList: TfrmYMTJGWCList
ImageIndex = 3
OnClick = TBDelClick
end
object TBExport: TToolButton
object TbEditKW: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913#24211#20301
ImageIndex = 11
OnClick = TbEditKWClick
end
object TBExport: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 68
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 252
Left = 363
Top = 0
AutoSize = True
Caption = #20851#38381
@ -354,11 +362,71 @@ object frmYMTJGWCList: TfrmYMTJGWCList
Options.Editing = False
Width = 85
end
object Tv1KuWei: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel4: TPanel
Left = 560
Top = 140
Width = 234
Height = 125
Color = clSkyBlue
TabOrder = 3
Visible = False
object Label25: TLabel
Left = 38
Top = 34
Width = 24
Height = 12
Caption = #24211#20301
end
object btnChk: TButton
Left = 28
Top = 81
Width = 60
Height = 25
Caption = #30830#35748
TabOrder = 0
OnClick = btnChkClick
end
object btn1: TButton
Left = 160
Top = 80
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = btn1Click
end
object KuWei: TcxButtonEdit
Left = 75
Top = 27
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = KuWeiPropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -17
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 2
Width = 121
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YXYMT.ADOLink
Parameters = <>

87
云翔一码通/U_YMTJGWCList.pas
View File

@ -80,6 +80,13 @@ type
ADOQueryImage: TADOQuery;
TV1SCConNo: TcxGridDBColumn;
Tv1SSel: TcxGridDBColumn;
TbEditKW: TToolButton;
Panel4: TPanel;
Label25: TLabel;
btnChk: TButton;
btn1: TButton;
KuWei: TcxButtonEdit;
Tv1KuWei: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -97,6 +104,10 @@ type
procedure FactoryNameChange(Sender: TObject);
procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure TbEditKWClick(Sender: TObject);
procedure KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure btnChkClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
canshu1, canshu2: string;
procedure InitGrid();
@ -113,7 +124,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun;
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
U_ZDYHelp;
{$R *.dfm}
@ -160,7 +172,7 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.FromMXID, A.Qty, A.CRType,A.CRTime,B.*, C.SHDanWei ');
sql.Add(' select A.FromMXID, A.Qty, A.CRType, A.CRTime, A.KuWei,B.*, C.SHDanWei ');
sql.Add(' from YMT_CK_CR A');
sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.ToSSID');
sql.Add(' JOIN YMT_FHSQ_Main C ON C.FSId = B.FSId');
@ -348,5 +360,76 @@ begin
end;
procedure TfrmYMTJGWCList.TbEditKWClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
exit;
Panel4.Visible := True;
end;
procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'KuWei';
flagname := '库位';
if ShowModal = 1 then
begin
with Self.CDS_Main do
begin
Edit;
KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYMTJGWCList.btnChkClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
application.MessageBox('请选择数据！', '提示信息');
exit;
end;
try
while CDS_Main.Locate('SSel', True, []) do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update YMT_CK_CR SET KuWei=' + quotedstr(trim(KuWei.Text)));
sql.Add('where SPID=' + quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString)));
execsql;
end;
with CDS_Main do
begin
Edit;
FieldByName('SSel').Value := False;
FieldByName('KuWei').Value := trim(KuWei.Text);
Post;
end;
end;
Panel4.Visible := False;
application.MessageBox('批量修改成功！', '提示信息');
except
application.MessageBox('批量修改失败！', '提示信息', 0);
end;
end;
procedure TfrmYMTJGWCList.btn1Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
end.