unitask.~pas

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

unit Unitask;

interface

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

type
  TForm2 = class(TForm)
    suiForm1: TsuiForm;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    spec: TsuiComboBox;
    num: TsuiEdit;
    name: TsuiEdit;
    bh: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

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

procedure TForm2.suiButton1Click(Sender: TObject);
var
   frm6:TFOrm6;
begin
     frm6:=TForm6.Create(self);
     frm6.d_name:=name.Text;
     frm6.d_type:=spec.Text;
     frm6.d_bh:=bh.Text;
     

end;

end.