類寫法：

1，定義自動加載類別值到combobox下拉框里

unit UAutoUpdateCombox;interface usesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB,Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus,Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO, Vcl.Buttons;type TAutoUpdateCombox=classpublicclass procedure autoadoqfieldstocombox(var combox:TComboBox;SAdq:TADOQuery); end;implementationuses Uleibie; class procedure TAutoUpdateCombox.autoadoqfieldstocombox(var combox:TComboBox;SAdq:TADOQuery);vari: Integer;List: TStringList; beginList := TStringList.Create; try//刷新前全部清空原來的列表 combox.Items.Clear;{建立 List}List.Sorted := True; {指定排序}List.Duplicates := dupIgnore; {避免重復(fù)}{把數(shù)據(jù)加入到 DBComboBox1}List.Clear;SAdq.open;SAdq.First;while not SAdq.Eof dobeginList.Add(SAdq.FieldByName('類別').AsString);SAdq.Next;end;//把獲取到的值加載給combbobox的下拉選項里combox.Items:=List;//刷新數(shù)據(jù)庫 SAdq.Requery; finallyList.Free; end;end;end.

?

?

2，定義單擊確定，更新客戶選的combobox的類別值到access數(shù)據(jù)庫里

?

unit UUpdateLeiBie;interface usesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB,Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus,Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO, Vcl.Buttons;type TUpdateLeiBie=classpublicclass procedure updateselectedleibie(var combox:TComboBox; SAdq:TADOQuery); end;implementationuses FDataPool; class procedure TUpdateLeiBie.updateselectedleibie(var combox:TComboBox; SAdq:TADOQuery); var MyAdoq:TADOQuery; LeiBie,SBiao: string; beginMyAdoq := TADOQuery.Create(nil);SBiao:=copy(SAdq.name,4,length(SAdq.name)-3);tryMyAdoq.Connection := frmDataPool.ADOConnection1;LeiBie:=combox.text;with MyAdoq dobeginClose;SQL.Text := 'UPDATE '+SBiao+' SET 類別 ='+ LeiBie.QuotedString+'where 選中 = true';ExecSQL;end;//防止程序假死 Application.ProcessMessages;//刷新紀(jì)錄 SAdq.Requery;finallyMyAdoq.Free;end;end;end.

?

3.類引用使用

unit Uleibie;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Data.DB, Data.Win.ADODB,Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids, Vcl.DBGrids, Clipbrd, Vcl.Menus,Vcl.StdCtrls, DBGridEhGrouping, ToolCtrlsEh, DBGridEhToolCtrls, DynVarsEh,EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh,EhLibADO, Vcl.Buttons;typeTFleibie = class(TForm)Label1: TLabel;BitBtn1: TBitBtn;BitBtn2: TBitBtn;ComboBox1: TComboBox;procedure BitBtn1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varFleibie: TFleibie;implementation{$R *.dfm}uses FDataPool, 日常管理助手, UInitializeDatabaseAdoSqlApi,UAutoUpdateCombox, UUpdateLeiBie;procedure TFleibie.BitBtn1Click(Sender: TObject); begin //更新類別值到access數(shù)據(jù)庫中 TUpdateLeiBie.updateselectedleibie(ComboBox1,frmDataPool.qry需要做的事); end;procedure TFleibie.FormCreate(Sender: TObject); begin //更新adoquery里面的fields值到combobox的item里； TAutoUpdateCombox.autoadoqfieldstocombox(ComboBox1,frmDataPool.qry需要做的事); end;end.

?

轉(zhuǎn)載于:https://www.cnblogs.com/ddxxxb/p/7069995.html

總結(jié)

以上是生活随笔為你收集整理的修改类别（类写法）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。