table.~pas

人事管理系统人事管理系统人事管理系统人事管理系统人事管理系统

unit Table;

interface

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

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    GroupBox1: TGroupBox;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TDateTimeField;
    ADOTable1DSDesigner5: TWideStringField;
    ADOTable1DSDesigner6: TWideStringField;
    ADOTable1EMail: TWideStringField;
    ADOTable1QQ: TWideStringField;
    ADOTable1ICQ: TWideStringField;
    ADOTable1MSN: TWideStringField;
    ADOTable1DSDesigner7: TWideStringField;
    ADOTable1DSDesigner8: TWideStringField;
    ADOTable1DSDesigner9: TWideStringField;
    ADOTable1DSDesigner10: TWideStringField;
    ADOTable1DSDesigner11: TWideStringField;
    ADOTable1DSDesigner12: TBlobField;
    ADOTable1DSDesigner13: TMemoField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    Label7: TLabel;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    Label13: TLabel;
    DBEdit11: TDBEdit;
    Label14: TLabel;
    DBEdit12: TDBEdit;
    Label15: TLabel;
    DBEdit13: TDBEdit;
    GroupBox4: TGroupBox;
    Label17: TLabel;
    DBImage1: TDBImage;
    Label18: TLabel;
    DBMemo1: TDBMemo;
    GroupBox5: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    GroupBox6: TGroupBox;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DataSetRefresh1: TDataSetRefresh;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    DBGrid1: TDBGrid;
    OpenPictureDialog1: TOpenPictureDialog;
    Label21: TLabel;
    Label22: TLabel;
    Label8: TLabel;
    DBComboBox3: TDBComboBox;
    Label16: TLabel;
    DBEdit14: TDBEdit;
    Label23: TLabel;
    Label24: TLabel;
    DBComboBox4: TDBComboBox;
    Label25: TLabel;
    DBEdit6: TDBEdit;
    ADOTable1DSDesigner: TWideStringField;
    ADOTable1DSDesigner14: TWideStringField;
    ADOTable1DSDesigner15: TStringField;
    ADOTable1DSDesigner16: TStringField;
    ADOTable1DSDesigner17: TStringField;
    procedure DBImage1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    //procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses query,main;
{$R *.dfm}

procedure TForm2.DBImage1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
  dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;

procedure TForm2.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  label19.Caption:=inttostr(datasource1.DataSet.RecNo);
  label20.Caption:=inttostr(datasource1.DataSet.RecordCount);
end;

//procedure TForm2.Button5Click(Sender: TObject);
//begin
//   dbedit1.ReadOnly:=false;
//   dbcombobox1.ReadOnly:=false;
//   dbedit2.ReadOnly:=false;
//   dbedit6.ReadOnly:=false;
//   dbedit3.ReadOnly:=false;
//   dbcombobox2.ReadOnly:=false;
//   dbedit4.ReadOnly:=false;
//   dbedit5.ReadOnly:=false;
//   dbedit7.ReadOnly:=false;
//   dbedit8.ReadOnly:=false;
//   dbedit9.ReadOnly:=false;
//   dbedit10.ReadOnly:=false;
//   dbedit11.ReadOnly:=false;
//   dbedit12.ReadOnly:=false;
//   dbedit13.ReadOnly:=false;
//   dbedit14.ReadOnly:=false;
//   dbmemo1.ReadOnly:=false;
//   dbimage1.ReadOnly:=false;
//end;

end.