listcib.pas

来自「Captor network, a small program for capt」· PAS 代码 · 共 39 行

PAS
39
字号
unit listcib;

interface

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

type
  Tlistcibf = class(TForm)
    Table1Codecib: TAutoIncField;
    Table1Posxci: TSmallintField;
    Table1Posyci: TSmallintField;
    DBGrid1: TDBGrid;
    DBNavigator: TDBNavigator;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
  private
    { d閏larations priv閑s }
  public
    { d閏larations publiques }
  end;

var
  listcibf: Tlistcibf;

implementation

{$R *.DFM}

procedure Tlistcibf.FormCreate(Sender: TObject);
begin
  Table1.Open;
end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?