shujuku.pas

花了两个多星期写的考勤系统

unit shujuku;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    xuanze: TButton;
    dakai: TButton;
    Button5: TButton;
    Panel2: TPanel;
    Splitter1: TSplitter;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button3: TButton;
    ADOConnection2: TADOConnection;
    ADOTable2: TADOTable;
    DBGrid2: TDBGrid;
    ComboBox2: TComboBox;
    Label9: TLabel;
    DataSource2: TDataSource;
    Label10: TLabel;
    Edit8: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure xuanzeClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure dakaiClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.insertRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text])
end;

procedure TForm1.xuanzeClick(Sender: TObject);
var
str1,str2,str3:string;

begin
if ADOConnection1.Connected then ADOConnection1.Close;
if OpenDialog1.Execute then
begin
 //Provider=Microsoft.Jet.OLEDB.4.0;Data Source=hyydb1.mdb;Persist Security Info=False
 str1:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';
 str2:=openDialog1.FileName;
 str3:= ';Persist Security Info=False';
 ADOConnection1.ConnectionString:=str1+str2+str3;
ADOConnection1.GetTableNames(ComboBox1.Items);
end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ADOTable1.Active then ADOTable1.Close;
ADOTable1.TableName:=ComboBox1.Items[ComboBox1.ItemIndex];
try
   ADOTable1.Open;
except
   ShowMessage('连接出错啦!');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
{
Provider=SQLOLEDB.1;Password=
sa
;Persist Security Info=True;User ID=
sa
;Initial Catalog=Northwind;Data Source=
127.0.0.1
}
if (edit5.text='')  and (edit6.text='') and (edit7.Text='')  then
 ShowMessage('输入信息有误')
else
 begin
  if adoconnection2.Connected then ADOConnection2.Close;
  ADOConnection2.ConnectionString:='Provider=SQLOLEDB.1;Password='
+edit7.Text+
';Persist Security Info=True;User ID= '
+edit6.Text+
';Initial Catalog='
+edit8.Text+
';Data Source= '
+edit5.Text;
 ADOConnection2.GetTableNames(ComboBox2.Items);
 end;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not (key  in ['0','1','2','3','4','5','6','7','8','9','.',#8]) then
  key:= #0;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ADOTable2.TableName:=ComboBox2.Items[ComboBox2.ItemIndex];
try
  adotable2.open
except
   showmessage('连接出错')
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    ADOTable1.Close;
end;

procedure TForm1.dakaiClick(Sender: TObject);
begin
ADOTable1.Open;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
edit1.Text:=ADOTable1.Fields[0].AsString;
edit2.Text:=ADOTable1.Fields[1].AsString;
edit3.Text:=ADOTable1.Fields[2].AsString;
edit4.Text:=ADOTable1.Fields[3].AsString;
end;

end.