一曲輕揚(yáng)

摘要： 需求說明: 程序設(shè)計(jì): 效果演示: 設(shè)計(jì)思路: FrmCK 只負(fù)責(zé)發(fā)布事件，不關(guān)心誰在監(jiān)聽. FrmGrid 只負(fù)責(zé)響應(yīng)事件，不關(guān)心事件來源. 創(chuàng)建過程: 一.創(chuàng)建接口單元FrmInterface.然后在單元中需要聲明兩個(gè)接口,即監(jiān)聽事件的接口和發(fā)布事件的接口 1.監(jiān)聽接口只需要聲明一個(gè)過程即可,它 閱讀全文

摘要： 效果展示: 核心代碼: procedure TMain.scAdvancedListBox2Items0Click(Sender: TObject); //單位設(shè)置 begin //獲取點(diǎn)擊的按鈕的caption屬性 var i := TscAdvancedListBox(Sender).ItemI 閱讀全文

摘要： 使用 AnsiToUtf8 方法轉(zhuǎn)換一下就可以了 procedure TForm1.LoadSettingsFromIni; var IniFile: TIniFile; begin IniFile := TIniFile.Create(FIniFilePath); try UserNameEdit 閱讀全文

摘要： 重要提示: xls后綴的文件與xlsx后綴的文件,連接方法不一樣. 可以使用代碼來實(shí)現(xiàn): FDConnection1.Connected := false; FDConnection1.Params.Clear; FDConnection1.DriverName := 'ODBC'; FDConne 閱讀全文

摘要： 一.設(shè)置文本屬性. 注意到,在CELL這個(gè)方法中,與我們常用的VBA參數(shù)的寫法是相反的. DELPHI先列后行: property Cells[ACol, ARow: Integer]: string read GetCells write SetCells; VBA先行后列: CELLS(ROW, 閱讀全文

摘要： 需求: 把登陸窗體中的圖片,替換為數(shù)據(jù)表中的圖片. 思路: 1.把圖片保存到本地 2.修改圖片控件的圖片路徑 難點(diǎn): 1.對(duì)附件的操作方法不熟練 2.不同的數(shù)據(jù)庫(kù)操作方法有差異 主要用到的方法: Field2.SaveToFile 方法 (DAO) 效果(左側(cè)圖片的變化): 原窗體: 載入表中圖片后 閱讀全文

摘要： 其中 數(shù)據(jù)表tblLinkedTables中,記錄了所有需要外鏈的表名. 核心代碼如下: Private Sub cmdBrowse_Click() With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = Cur 閱讀全文

摘要： //帶密碼 SELECT * FROM [;database=C:\Users\Administrator\Desktop\VBA刪除后端表\數(shù)據(jù)源\Data2.mdb;pwd=123].A; //不帶密碼 SELECT * FROM [;database=C:\Users\Administrato 閱讀全文

摘要： 設(shè)置視圖: 運(yùn)行效果: unit HideWindown; interface uses Windows, Messages, SysUtils, Classes, Forms, StdCtrls, ActiveX, ComObj, ShellAPI, Tlhelp32, Vcl.Controls, 閱讀全文

摘要： 我在ACCESS中添加了TreeView插件,結(jié)果電腦A上打開沒問題,電腦B打開時(shí)就報(bào)MSCOMCT2.OCX和MSCOMCTL.OCX有錯(cuò). B電腦之前是可以正常使用的,但是加了TreeView插件之后報(bào)錯(cuò),說明是插件引用的問題. 在網(wǎng)上下載了這兩個(gè)文件,復(fù)制到C:\WINDOWS\SYSTEM3 閱讀全文

摘要： 用過Round和INT函數(shù)都沒辦法解決. 查詢結(jié)果: 原因: 參與計(jì)算的字段使用了單精度或者雙精度數(shù)據(jù)類型,改成小數(shù)類型即可解決. 閱讀全文

摘要： 為了更詳細(xì)地解釋 Base64 編碼的過程，我們可以從頭開始逐步分解這個(gè)過程。假設(shè)我們有一段簡(jiǎn)單的 ASCII 文本 "Hello"，我們將詳細(xì)展示如何將其轉(zhuǎn)換為 Base64 編碼。 1. 獲取文本的 ASCII 碼 首先，將 "Hello" 轉(zhuǎn)換為其 ASCII 碼值。每個(gè)字符的 ASCII 碼 閱讀全文

摘要： 驗(yàn)證規(guī)則分為字段級(jí)別與表級(jí)別 在字段級(jí)別的驗(yàn)證規(guī)則中,你只能使用本字段的數(shù)據(jù),如果表達(dá)式涉及其他字段的數(shù)據(jù),則會(huì)提示你: 表級(jí)別的驗(yàn)證規(guī)則,可使用的表內(nèi)的所有數(shù)據(jù),以適應(yīng)更復(fù)雜的邏輯表達(dá)式,上圖的錯(cuò)誤,我們只需要把表達(dá)式寫到表級(jí)別里面即可. 另外,表級(jí)別的驗(yàn)證規(guī)則,只能寫一個(gè),請(qǐng)合理使用. 解決的方 閱讀全文

摘要： Forms!控制面板!NavigationSubform.SourceObject = "目標(biāo)窗體" 注: 在導(dǎo)航窗體的屬性面板中不會(huì)顯示SourceObject屬性,但它是真實(shí)存在的. 閱讀全文

摘要： 一.插入選項(xiàng)組控件后,它的默認(rèn)名稱是Frame+編號(hào) 如果你要遍歷所有選項(xiàng)組控件,可能會(huì)被它的名字Frame所迷惑.以為就是要找Frame類型的對(duì)象,但其實(shí)是不對(duì)的,正確的遍歷方式應(yīng)該是 For Each tempF In Me.Controls If TypeName(tempF) = "Opti 閱讀全文

摘要： 有這樣一個(gè)窗體,它的布局如下圖,我需要刷新 數(shù)據(jù)表E(數(shù)據(jù)表類型的窗體)的數(shù)據(jù),路徑怎么寫? 這里提供一個(gè)思路,就是在數(shù)據(jù)表E里面寫一個(gè)全局過程,比如 Public sub ReQueryData() me.form.ReQuery end sub 然后在需要調(diào)用的地方這么調(diào)用即可: From_數(shù)據(jù) 閱讀全文

摘要： 今早被自己蠢到.在輸入密碼的時(shí)候,不小心按下了大小寫轉(zhuǎn)換鍵,結(jié)果卻能正常登陸,當(dāng)場(chǎng)整個(gè)人都不好了.... 然后測(cè)試: 簡(jiǎn)直了..... 分析原因是,把其他語言的特性,理所當(dāng)然原搬過來用了... 解決方案: 使用StrComp函數(shù)進(jìn)行比較,與NZ類似,此函數(shù)為ACCESS特有,可直接在SQL和VBA中 閱讀全文

摘要： Private Sub 權(quán)重_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> vbKeyReturn And KeyCode <> vbKeyUp And KeyCode <> vbKeyDown And vbKeyTab Th 閱讀全文

摘要： 這是我實(shí)際工作中遇到的問題.兩個(gè)窗體同時(shí)設(shè)置了"模式"屬性為"是",預(yù)想中的結(jié)果是左邊最后彈出的數(shù)據(jù)表窗體為最上層窗體.結(jié)果左右兩個(gè)窗體同級(jí)了,能點(diǎn)左,也能點(diǎn)右.當(dāng)然主窗體不能點(diǎn)是正確的. 解決思路: 這明顯就是"模式"沖突了.所以我們?cè)O(shè)置成只同時(shí)存在一個(gè)模式屬性為"是"的窗體即可.也就是當(dāng)需要打開 閱讀全文

摘要： Dim ID As Long ID = Me.FMTempMessage.Form.UserID Me.FMTempMessage.Form.Requery Dim rs As Recordset Set rs = Me.FMTempMessage.Form.Recordset rs.MoveFir 閱讀全文