unit7.~pas

来自「一个小型的职工管理系统希望大家多多指教!基本功能已经实现」· ~PAS 代码 · 共 49 行

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    ADOQuery1jnum: TStringField;
    ADOQuery1jname: TStringField;
    ADOQuery1jsex: TStringField;
    ADOQuery1jxue: TStringField;
    ADOQuery1jzhic: TStringField;
    ADOQuery1jma: TStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
var temp :integer;
begin
temp:=adoquery1.RecordCount;
form7.Edit1.Text :=inttoStr(temp)  ;
end;

end.