pusers.pas

BarCodePrint条码打印机打印管理

unit PUsers;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBGrids, ADODB, Grids, ExtCtrls;

type
  TFormUsers = class(TForm)
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSourceUsers: TDataSource;
    Panel2: TPanel;
    ADOTableUsers: TADOTable;
    DBGridUsers: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormUsers: TFormUsers;

implementation

uses PDataModuleMain;

{$R *.DFM}

procedure TFormUsers.FormCreate(Sender: TObject);
begin
  AdoTableUsers.Connection:=DataModuleMain.ADOConnectionBarCode;
  AdoTableUsers.TableName:='Users';
  AdoTableUsers.Open;


  DbgridUsers.Columns.Items[0].Title.Caption:='编号';
  DbgridUsers.Columns.Items[1].Title.Caption:='姓名';
  DbgridUsers.Columns.Items[2].Visible:=False;
end;

end.