ucreatgroup.pas

港口货物管理系统

unit Ucreatgroup;

interface

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

type
  Tfmcreatgroup = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1Auid: TStringField;
    Table1Auname: TStringField;
    Table1Agroup: TStringField;
    Table1Agroupowner: TBooleanField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
    agrouplistbox:tlistbox;
     agroup:string;{ Public declarations }
  end;

var
  fmcreatgroup: Tfmcreatgroup;

implementation

uses ulogin;

{$R *.dfm}

procedure Tfmcreatgroup.BitBtn1Click(Sender: TObject);
begin
table1.Active:=true;
table1.Edit;
table1.Post;
end;

procedure Tfmcreatgroup.BitBtn2Click(Sender: TObject);
begin
fmcreatgroup.Close;
end;

procedure Tfmcreatgroup.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

end.