unit4.pas

利用Acess数据库

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ToolWin, ComCtrls, Menus, StdCtrls, Buttons, Mask, DBCtrls, Db, DBTables,
  Grids, DBGrids, ExtCtrls;

type
  TSuperForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    ToolBar1: TToolBar;
    Table1op: TTable;
    DataSourceop: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Query1op: TQuery;
    Table1opBDEDesigner: TStringField;
    Table1opBDEDesigner2: TStringField;
    Table1opBDEDesigner3: TDateTimeField;
    Label1: TLabel;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    GroupBox2: TGroupBox;
    StatusBar1: TStatusBar;
    Tabletract: TTable;
    Querytract: TQuery;
    DBGrid2: TDBGrid;
    DataSourcetract: TDataSource;
    TabletractBDEDesigner: TAutoIncField;
    TabletractBDEDesigner2: TStringField;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    GroupBox3: TGroupBox;
    Tablename: TTable;
    DataSourcename: TDataSource;
    DBGrid3: TDBGrid;
    DBNavigator2: TDBNavigator;
    TablenameBDEDesigner: TStringField;
    TablenameBDEDesigner2: TStringField;
    TablenameBDEDesigner3: TSmallintField;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox1: TComboBox;
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSourcetractDataChange(Sender: TObject; Field: TField);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SuperForm: TSuperForm;

implementation

uses Unit1, Unit2, Unit3, Unit7;

{$R *.DFM}

procedure TSuperForm.N2Click(Sender: TObject);
begin
 inputform.close;
  superform.Close;
  normal.Close;
  login.show;
end;

procedure TSuperForm.N5Click(Sender: TObject);
begin
  superform.Close;
  normal.show;
end;

procedure TSuperForm.N6Click(Sender: TObject);
begin
  superform.Close;
  inputform.show;
end;

procedure TSuperForm.N4Click(Sender: TObject);
begin
  login.close;
end;

procedure TSuperForm.N8Click(Sender: TObject);
begin
  change.show;
end;

procedure TSuperForm.BitBtn1Click(Sender: TObject);
begin
  with superform.Query1op do
  begin
    close;
    sql.Clear;
    sql.add('select * from login where 登录帐号=:name');
    parambyname('name').asstring:=edit1.text;
    open;
  end;
    



end;

procedure TSuperForm.BitBtn2Click(Sender: TObject);
begin
  superform.Tabletract.SetFields([edit2.text,edit3.text]);
end;

procedure TSuperForm.DataSourcetractDataChange(Sender: TObject;
  Field: TField);
begin
  edit2.Text:=tabletract.Fields[0].AsString;
  edit3.Text:=tabletract.Fields[1].AsString;
end;

procedure TSuperForm.BitBtn3Click(Sender: TObject);
begin
   superform.Tabletract.AppendRecord([edit2.text,edit3.text]);
end;

procedure TSuperForm.BitBtn4Click(Sender: TObject);
begin
  tablename.AppendRecord([edit4.text,edit5.text,combobox1.itemindex]);
end;

procedure TSuperForm.BitBtn5Click(Sender: TObject);
begin
  tablename.Edit;
  tablename.Delete;
end;

procedure TSuperForm.FormCreate(Sender: TObject);
begin
  table1op.open;
  tabletract.open;
  tablename.open;
end;

end.