singlesystem.pas

一个不错的信息管理系统

unit singlesystem;

interface

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

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    Button5: TButton;
    Button8: TButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Button9: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    TabSheet4: TTabSheet;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    DataSource5: TDataSource;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBComboBox6: TDBComboBox;
    Label7: TLabel;
    DBEdit14: TDBEdit;
    Label8: TLabel;
    DBEdit24: TDBEdit;
    Label9: TLabel;
    DBEdit32: TDBEdit;
    Label11: TLabel;
    DBEdit34: TDBEdit;
    Label10: TLabel;
    DBEdit33: TDBEdit;
    Label12: TLabel;
    DBEdit35: TDBEdit;
    Label13: TLabel;
    DBEdit36: TDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit38: TDBEdit;
    Label16: TLabel;
    DBEdit39: TDBEdit;
    Label17: TLabel;
    DBEdit40: TDBEdit;
    Label18: TLabel;
    DBEdit41: TDBEdit;
    Label30: TLabel;
    DBEdit42: TDBEdit;
    Label38: TLabel;
    DBEdit43: TDBEdit;
    Label39: TLabel;
    DBEdit44: TDBEdit;
    Label40: TLabel;
    DBEdit45: TDBEdit;
    Label41: TLabel;
    DBEdit46: TDBEdit;
    Label57: TLabel;
    DBEdit47: TDBEdit;
    Label59: TLabel;
    DBEdit48: TDBEdit;
    Label60: TLabel;
    DBEdit49: TDBEdit;
    Label61: TLabel;
    DBEdit50: TDBEdit;
    Label62: TLabel;
    DBEdit52: TDBEdit;
    Label63: TLabel;
    DBEdit53: TDBEdit;
    Label64: TLabel;
    DBEdit54: TDBEdit;
    Label65: TLabel;
    DBEdit55: TDBEdit;
    Label66: TLabel;
    DBEdit56: TDBEdit;
    Label67: TLabel;
    DBEdit57: TDBEdit;
    Label68: TLabel;
    DBEdit58: TDBEdit;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TWideStringField;
    ADOTable2DSDesigner2: TWideStringField;
    ADOTable2DSDesigner3: TSmallintField;
    ADOTable2DSDesigner4: TWideStringField;
    ADOTable2DSDesigner5: TWideStringField;
    ADOTable2DSDesigner6: TWideStringField;
    ADOTable2DSDesigner7: TWideStringField;
    ADOTable2DSDesigner8: TWideStringField;
    ADOTable2DSDesigner9: TWideStringField;
    ADOTable2DSDesigner10: TWideStringField;
    ADOTable2DSDesigner11: TWideStringField;
    ADOTable2DSDesigner12: TWideStringField;
    ADOTable2DSDesigner13: TWideStringField;
    Label19: TLabel;
    DataSource6: TDataSource;
    Label20: TLabel;
    DBEdit16: TDBEdit;
    Label21: TLabel;
    DBEdit17: TDBEdit;
    Label22: TLabel;
    DBEdit18: TDBEdit;
    Label23: TLabel;
    DBEdit19: TDBEdit;
    Label24: TLabel;
    DBEdit20: TDBEdit;
    Label25: TLabel;
    DBEdit21: TDBEdit;
    Label26: TLabel;
    DBEdit22: TDBEdit;
    Label27: TLabel;
    DBEdit23: TDBEdit;
    Label28: TLabel;
    DBEdit59: TDBEdit;
    Label29: TLabel;
    DBEdit60: TDBEdit;
    ADOTable3: TADOTable;
    ADOTable3DSDesigner: TWideStringField;
    ADOTable3DSDesigner2: TWideStringField;
    ADOTable3DSDesigner3: TWideStringField;
    ADOTable3DSDesigner4: TWideStringField;
    ADOTable3DSDesigner5: TWideStringField;
    ADOTable3DSDesigner6: TWideStringField;
    ADOTable3DSDesigner7: TWideStringField;
    ADOTable3DSDesigner8: TWideStringField;
    Label31: TLabel;
    DBEdit25: TDBEdit;
    DataSource7: TDataSource;
    Label32: TLabel;
    DBEdit26: TDBEdit;
    Label33: TLabel;
    DBEdit27: TDBEdit;
    Label34: TLabel;
    DBEdit28: TDBEdit;
    Label35: TLabel;
    DBEdit29: TDBEdit;
    Label36: TLabel;
    DBEdit30: TDBEdit;
    Label37: TLabel;
    DBEdit31: TDBEdit;
    ADOTable4: TADOTable;
    ADOTable4DSDesigner: TWideStringField;
    ADOTable4DSDesigner2: TWideStringField;
    ADOTable4DSDesigner3: TWideStringField;
    ADOTable4DSDesigner4: TWideStringField;
    ADOTable4DSDesigner5: TWideStringField;
    ADOTable4DSDesigner6: TWideStringField;
    ADOTable4DSDesigner7: TWideStringField;
    ADOTable4DSDesigner8: TWideStringField;
    ADOTable4DSDesigner9: TWideStringField;
    ADOTable4DSDesigner10: TWideStringField;
    ADOTable4DSDesigner11: TWideStringField;
    ADOTable4DSDesigner12: TWideStringField;
    ADOTable4DSDesigner13: TWideStringField;
    ADOTable4DSDesigner14: TWideStringField;
    ADOTable4DSDesigner15: TWideStringField;
    ADOTable4DSDesigner16: TWideStringField;
    ADOTable4DSDesigner17: TWideStringField;
    ADOTable4DSDesigner18: TWideStringField;
    DataSource8: TDataSource;
    GroupBox3: TGroupBox;
    Label42: TLabel;
    DBEdit2: TDBEdit;
    Label45: TLabel;
    DBEdit5: TDBEdit;
    Label52: TLabel;
    DBEdit12: TDBEdit;
    Label56: TLabel;
    DBEdit63: TDBEdit;
    DBEdit13: TDBEdit;
    Label53: TLabel;
    DBEdit8: TDBEdit;
    Label48: TLabel;
    DBEdit3: TDBEdit;
    Label43: TLabel;
    Label44: TLabel;
    DBEdit4: TDBEdit;
    Label49: TLabel;
    DBEdit9: TDBEdit;
    Label54: TLabel;
    DBEdit61: TDBEdit;
    Label46: TLabel;
    DBEdit6: TDBEdit;
    Label50: TLabel;
    DBEdit10: TDBEdit;
    Label55: TLabel;
    DBEdit62: TDBEdit;
    DBEdit7: TDBEdit;
    Label47: TLabel;
    Label51: TLabel;
    DBEdit11: TDBEdit;
    ADOTable1DSDesigner: TWideStringField;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TBlobField;
    ADOTable1DSDesigner4: TWideStringField;
    ADOTable1DSDesigner5: TSmallintField;
    ADOTable1DSDesigner6: TWideStringField;
    ADOTable1DSDesigner7: TWideStringField;
    ADOTable1DSDesigner8: TWideStringField;
    ADOTable1DSDesigner9: TWideStringField;
    ADOTable1DSDesigner10: TWideStringField;
    ADOTable1DSDesigner11: TWideStringField;
    ADOTable1DSDesigner12: TWideStringField;
    ADOTable1DSDesigner13: TWideStringField;
    ADOTable1DSDesigner14: TWideStringField;
    ADOTable1DSDesigner15: TWideStringField;
    ADOTable1DSDesigner16: TWideStringField;
    ADOTable1DSDesigner17: TWideStringField;
    ADOTable1DSDesigner18: TWideStringField;
    ADOTable1DSDesigner19: TWideStringField;
    ADOTable1DSDesigner20: TWideStringField;
    ADOTable1DSDesigner21: TWideStringField;
    ADOTable1DSDesigner22: TWideStringField;
    ADOTable1DSDesigner23: TIntegerField;
    ADOTable1DSDesigner24: TWideStringField;
    ADOTable1DSDesigner25: TWideStringField;
    ADOTable1DSDesigner26: TWideStringField;
    ADOTable1DSDesigner27: TWideStringField;
    ADOTable1DSDesigner28: TWideStringField;
    ADOTable1DSDesigner29: TWideStringField;
    ADOTable1DSDesigner30: TWideStringField;
    ADOTable1DSDesigner31: TWideStringField;
    ADOTable1DSDesigner32: TWideStringField;
    ADOTable1DSDesigner33: TWideStringField;
    ADOTable1DSDesigner34: TWideStringField;
    ADOTable1DSDesigner35: TWideStringField;
    ADOTable1DSDesigner36: TBlobField;
    ADOTable1DSDesigner37: TWideStringField;
    DBEdit64: TDBEdit;
    DBComboBox1: TDBComboBox;
    Button7: TButton;
    Button10: TButton;
    DBComboBox2: TDBComboBox;
    procedure Button7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure DBComboBox2Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button7Click(Sender: TObject);
begin            //退出
button10.Enabled:=true;
button8.Enabled:=false;
button9.Enabled:=false;
form8.Close;
end;

procedure TForm8.Button1Click(Sender: TObject);
begin            //第一条记录
adotable1.first;

adotable2.Filtered:=false;
adotable2.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable2.Filtered:=true;

adotable3.Filtered:=false;
adotable3.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable3.Filtered:=true;


adotable4.Filtered:=false;
adotable4.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable4.Filtered:=true;

button3.Enabled :=true;
button4.Enabled :=true;
button2.Enabled :=false;
button1.Enabled :=false;
end;

procedure TForm8.Button9Click(Sender: TObject);
begin                  //取消
adotable1.ReadOnly :=true;
adotable2.ReadOnly :=true;
adotable3.ReadOnly :=true;
adotable4.ReadOnly :=true;
adotable1.Active :=true;
adotable2.Active :=true;
adotable3.Active :=true;
adotable4.Active :=true;
adotable1.Cancel;
adotable2.Cancel;
adotable3.Cancel;
adotable4.Cancel;
button8.Enabled:=false;
button9.Enabled:=false;
button10.Enabled :=true;
button1.Enabled :=true;
button2.Enabled :=true;
button3.Enabled :=true;
button4.Enabled :=true;
button5.Enabled :=true;
button6.Enabled :=true;
end;

procedure TForm8.Button5Click(Sender: TObject);
begin                  //添加记录
adotable1.Append;
adotable2.Append;
adotable3.Append;
adotable4.Append;
button8.Enabled:=true;
button9.Enabled:=true;
button1.Enabled :=false;
button2.Enabled :=false;
button3.Enabled :=false;
button4.Enabled :=false;
button6.Enabled :=false;
button10.Enabled :=false;
end;

procedure TForm8.Button8Click(Sender: TObject);
begin             //提交
adotable1.ReadOnly :=true;
adotable2.ReadOnly :=true;
adotable3.ReadOnly :=true;
adotable4.ReadOnly :=true;
adotable1.Active :=true;
adotable2.Active :=true;
adotable3.Active :=true;
adotable4.Active :=true;
if dbedit64.Text<>'' then
begin
adotable1.Post;
adotable2.FieldByName('标识号').Value:=dbedit64.Text;
adotable3.FieldByName('标识号').Value:=dbedit64.Text;
adotable4.FieldByName('标识号').Value:=dbedit64.Text;
adotable2.FieldByName('学历代码').Value:=dbcombobox2.ItemIndex;
adotable2.Post;
adotable3.Post;
adotable4.Post;
button8.Enabled:=false;
button9.Enabled:=false;
button10.Enabled :=true;
button1.Enabled :=true;
button2.Enabled :=true;
button3.Enabled :=true;
button4.Enabled :=true;
button6.Enabled :=true;
button5.Enabled :=true;
end
else
begin
beep();
showmessage('请输入标识号！');
end;
end;
procedure TForm8.Button6Click(Sender: TObject);
begin                 //删除记录
beep();
if (messagedlg('真的要删除此记录？如果删除将不能恢复！',mtconfirmation,[mbyes,mbno],0)=mryes) then
begin
adotable1.Delete;
adotable2.Delete;
adotable3.Delete;
adotable4.Delete;
end;
end;

procedure TForm8.Button2Click(Sender: TObject);
begin              //上一条记录
adotable1.prior;

adotable2.Filtered:=false;
adotable2.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable2.Filtered:=true;

adotable3.Filtered:=false;
adotable3.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable3.Filtered:=true;

adotable4.Filtered:=false;
adotable4.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable4.Filtered:=true;

button3.Enabled :=true;
button4.Enabled :=true;
if adotable1.Bof then
begin
button2.Enabled :=false;
button1.Enabled :=false;
end;
end;


procedure TForm8.Button3Click(Sender: TObject);
begin              //下一条记录
adotable1.next;

adotable2.Filtered:=false;
adotable2.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable2.Filtered:=true;

adotable3.Filtered:=false;
adotable3.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable3.Filtered:=true;

adotable4.Filtered:=false;
adotable4.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable4.Filtered:=true;

if adotable1.Eof then
begin
button3.Enabled :=false;
button4.Enabled :=false;
end;
button1.Enabled:=true;
button2.Enabled:=true;
end;

procedure TForm8.Button4Click(Sender: TObject);
begin                 //最后一条记录
adotable1.last;

adotable2.Filtered:=false;
adotable2.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable2.Filtered:=true;

adotable3.Filtered:=false;
adotable3.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable3.Filtered:=true;

adotable4.Filtered:=false;
adotable4.Filter:='标识号='+adotable1.fieldbyname('标识号').Value;
adotable4.Filtered:=true;

button3.Enabled :=false;
button4.Enabled :=false;
button1.Enabled:=true;
button2.Enabled:=true;
end;


procedure TForm8.Button10Click(Sender: TObject);
begin               //修改记录
button1.Enabled :=false;
button2.Enabled :=false;
button3.Enabled :=false;
button4.Enabled :=false;
button9.Enabled :=true;
button5.Enabled :=false;
button6.Enabled :=false;
button10.Enabled :=false;
button8.Enabled :=true;
button9.Enabled :=true;
adotable1.Edit;
adotable2.Edit;
adotable3.Edit;
adotable4.Edit;
end;


procedure TForm8.DBComboBox2Change(Sender: TObject);
begin          //自动生成学历代码
dbedit16.Text:=inttostr(dbcombobox2.ItemIndex);
end;


procedure TForm8.FormActivate(Sender: TObject);
begin              //让第一页处于激活状态
pagecontrol1.ActivePageIndex:=0;
end;

end.