unityh.~pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit Unityh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIImagePanel,unitcomm, SUIEdit,
  SUIButton,DB,ADODB;

type
  TForm4 = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    yh_name: TsuiEdit;
    mm: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
     myQuery:TADOQuery;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}
uses
    unitok1;


procedure TForm4.suiButton2Click(Sender: TObject);
begin
     close;
end;

procedure TForm4.suiButton1Click(Sender: TObject);
var
   frm8:TForm8;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOConn;
     myQuery.SQL.Add('insert yh(yh_name,mm) values ('''+yh_name.Text+''','''+mm.Text+''')');
     myQuery.ExecSQL;
     myQuery.Close;
     myQuery.Free;
     frm8:=TForm8.Create(self);
     self.Close;
     frm8.ShowModal;
     frm8.Free;
     self.Close;

end;

end.