unit4.pas

这是一个学藉管理系统

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DBCtrls, ComCtrls, Mask, DB, ADODB, DBActns,
  ActnList, XPMenu,implemntation, Grids, DBGrids;

type
  TForm4 = class(TForm)
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    XPMenu1: TXPMenu;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox4: TGroupBox;
    Label10: TLabel;
    Label9: TLabel;
    pagecontrol1: TPageControl;
    TabSheet1: TTabSheet;
    Label11: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label12: TLabel;
    Label1: TLabel;
    DBEdit6: TDBEdit;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit9: TDBEdit;
    Label4: TLabel;
    Label14: TLabel;
    DBEdit4: TDBEdit;
    Label18: TLabel;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit15: TDBEdit;
    Label17: TLabel;
    Label20: TLabel;
    GroupBox2: TGroupBox;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    Label13: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    DBEdit3: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit16: TDBEdit;
    Label22: TLabel;
    DBComboBox2: TDBComboBox;
    BitBtn9: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label22Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}



procedure TForm4.DataSource1DataChange(Sender: TObject; Field: TField);
var
i :integer;
begin
   i:=ADOTable1.RecNo ;
    now_num:=inttostr(i);
    all_num:=inttostr(ADOTable1.RecordCount);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
self.height:=peg_height;
self.Width:=peg_width;

  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
  Product_Dir+data_path+';Persist Security Info=False';
 try
  ADOConnection1.Open;
  ADOtable1.Active:=true;
  except
   application.MessageBox('找不到数据库，引起该问题的原因是数据库可能被删除或改名.','无法打开数据库',0);
   application.Terminate;
  end;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;

end;

procedure TForm4.Label22Click(Sender: TObject);

begin
showmessage('未完成!');
{sqlstr:=' where (1=1) ';
if DBEdit.Text <>'' then sqlstr:=sqlstr+' and (姓名 like'''+'%'+DBEdit.Text+'%'')';
   dm.ADOQuery1.Close ;
   dm.ADOQuery1.SQL.Clear ;
   dm.ADOQuery1.SQL.Add('select * from student');
   dm.ADOQuery1.SQL.Add(sqlstr);
   dm.ADOQuery1.Open ;
}
   end;

procedure TForm4.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_ESCAPE then self.close;
  { else if key=vk_home then Dataset.DataSetFirst1
   else if key=vk_prior then DataSetPrior1
   else if key=vk_next then DataSetNext1
   else if key=vk_end then  DataSetLast1
   else if key=vk_insert then DataSetInsert1
   else if key=vk_delete then DataSetDelete1
 }
end;

procedure TForm4.GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
state:='数据浏览管理';

end;

end.