unit1.pas

函数查看器

//'作者：杜航军'+#13+'QQ:593106'+#13+'[e-mail]'
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    X1: TMenuItem;
    S1: TMenuItem;
    Duba: TADOConnection;
    N1: TMenuItem;
    N2: TMenuItem;
    A1: TMenuItem;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure X1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2,unit3,sFormUnit;

{$R *.dfm}

procedure TForm1.X1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.S1Click(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Duba.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=guest.mdb;Persist Security Info=False';
  try
  Duba.Open;
  Except
  On E:Exception Do
    MessageBox(Handle,'数据库访问失败，请检查设置。','警告',MB_OK or MB_ICONWARNING);
  end;
end;

procedure TForm1.N1Click(Sender: TObject);
var i:integer;
begin
  form3._ado.Active:=false;
  form3._ado.Active:=true;
  //编码,姓名,性别,单位,单位地址,住址,私人电话,办公电话,手机,邮编,职务
  for i:=0 to form3.DBGrid1.Columns.Count-1 do form3.DBGrid1.Columns[i].Visible:=false;
  form3.DBGrid1.Columns[1].Visible:=true;
  form3.DBGrid1.Columns[1].Width:=65;
  form3.DBGrid1.Columns[2].Visible:=true;
  form3.DBGrid1.Columns[2].Width:=35;
  form3.DBGrid1.Columns[3].Visible:=true;
  form3.DBGrid1.Columns[3].Width:=230;
  form3.DBGrid1.Columns[10].Visible:=true;
  form3.DBGrid1.Columns[10].Width:=65;
  form3.DBGrid1.Columns[11].Visible:=true;
  form3.DBGrid1.Columns[11].Width:=30;
  if form3._ado.RecordCount=0 then
  begin
    form3._adotemp.SQL.Clear;
    form3._adotemp.SQL.Add('select max(编码) as m from list');
    form3._adotemp.Open;
    if form3._adotemp.RecordCount=0 then i:=0 else i:=form3._adotemp.FieldByName('m').AsInteger;
    form3._ado.Cancel;
    form3._ado.Append;
    form3._ado.FieldByName('编码').AsInteger:=i+1;
    form3._ado.FieldByName('性别').AsString:='女士';
    form3._ado.FieldByName('邮编').AsInteger:=321000;
    form3._ado.FieldByName('职务').AsString:='会计';
    form3._ado.FieldByName('签到').AsString:='否';
  end;
  form3.ShowModal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  sform.Edit1.Clear;
  sform.ShowModal;
end;

procedure TForm1.A1Click(Sender: TObject);
begin
  MessageBox(Handle,'作者：杜航军'+#13+'QQ:593106'+#13+'[e-mail]','关于',MB_OK or MB_ICONWARNING);
end;

end.