From b27c0bc6f19d9f6940af3804ab9857e191c233b3 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 20 Sep 2025 15:12:50 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E4=B8=80=E7=A0=81=E9=80=9A?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 云翔一码通/U_YMTJGWCList.dfm | 78 +++++++++++++++++++++++++++++--- 云翔一码通/U_YMTJGWCList.pas | 87 +++++++++++++++++++++++++++++++++++- 2 files changed, 158 insertions(+), 7 deletions(-) diff --git a/云翔一码通/U_YMTJGWCList.dfm b/云翔一码通/U_YMTJGWCList.dfm index 5401614..4e12394 100644 --- a/云翔一码通/U_YMTJGWCList.dfm +++ b/云翔一码通/U_YMTJGWCList.dfm @@ -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 = <> diff --git a/云翔一码通/U_YMTJGWCList.pas b/云翔一码通/U_YMTJGWCList.pas index d1f4904..a9df58f 100644 --- a/云翔一码通/U_YMTJGWCList.pas +++ b/云翔一码通/U_YMTJGWCList.pas @@ -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('޸ijɹ', 'ʾϢ'); + except + application.MessageBox('޸ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYMTJGWCList.btn1Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + end.