摘要：
var ComboBoxList: Array [1..44] of TComboBox; I, J: Integer;begin for I := 1 to row dobegin for J := 1 to col do begin ComboBoxList[J] := TComboBox.Create(self); //动态创建 ComboBoxList[J].Parent := GroupBox1; //或ScrollBox1、 self 显示在啥组件上或Form上 ComboBoxList[J].Width := 100; //组件宽度 if J = 1 then Comb... 阅读全文
摘要：
edDatabase.Text := PromptDataSource(Application.Handle, ''); 或 edDatabase.Text := PromptDataSource(Application.Handle, edDatabase.Text);上面的PromptDataSource函数调用系统的连接数据库操作页面，会弹出一个连接数据库页面，连接成功后，返回数据库路径，可选数据库名。procedure TForm26.btAddTableClick(Sender: TObject);var tbaleList: TStringList; fieldNa 阅读全文
摘要：
TNoteBook组件中有一个pages属性，是Tstrings类型。通过pages属性设置相应的页面。1。先通过Pages属性设置多个记录页面，以3个page为例（0, page0）, (1, page1), (2, page2)2。右键点击TNoteBook组件名称NoteBook1，选择NextPage，会跳到下一个记录页面3。在记录页面上加Panel页面。这样就可以绑定Panel页面，有多少个记录页面，就可以绑定多少页面4。NoteBook1.PageIndex :=NoteBook1.PageIndex - 1 或 NoteBook1.PageIndex+ 1 移动。case Not 阅读全文
摘要：
opendialog1.InitialDir := ExtractFilePath(Application.ExeName); //设置打开初始路径，通过Application.ExeName运行程序得到程序路径if opendialog1.Execute then//运行TOpenDialog打开选择文件 begin if LowerCase(ExtractFileExt( opendialog1.FileName)) <> '.xls' then//选取文件的副类型，然后换成小写 begin opendialog1.FileName:= opendialog1. 阅读全文