unit5.pas

一个大地科贸公司的公司管理系统

unit Unit5;

interface

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

type
  TFrm_Setup = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Btn_Add: TButton;
    Btn_Del: TButton;
    Btn_Query: TButton;
    Btn_Exit: TButton;
    procedure Btn_AddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Setup: TFrm_Setup;

implementation

{$R *.dfm}

procedure TFrm_Setup.Btn_AddClick(Sender: TObject);
var
   id:integer;
begin
   with table1 do
     begin
       last;
       id:=FieldByName('序号').AsInteger;
       Append;
       Edit;
       FieldByName('序号').AsInteger:=id+1;
       Post;
      end; 
end;

end.