unityh.~pas

来自「档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示」· ~PAS 代码 · 共 64 行

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.