?? pprocesscode.pas
字號(hào):
unit PProcessCode;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls;
type
TFormProcessCode = class(TForm)
StatusBarProductCode: TStatusBar;
DBGridUsers: TDBGrid;
DBNavigatorProductCode: TDBNavigator;
DataSourceUsers: TDataSource;
ADOTableUsers: TADOTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormProcessCode: TFormProcessCode;
implementation
uses PDataModuleMain;
{$R *.DFM}
procedure TFormProcessCode.FormCreate(Sender: TObject);
begin
AdoTableUsers.Connection:=DataModuleMain.ADOConnectionBarCode;
AdoTableUsers.TableName:='ProcessCode';
AdoTableUsers.Open;
DbgridUsers.Columns.Items[0].Title.Caption:='編碼';
DbgridUsers.Columns.Items[1].Title.Caption:='說明';
StatusBarProductCode.SimpleText:='總數(shù):'+IntToStr(AdoTableUsers.RecordCount);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -