unitask.~pas

档案管理系统软件设计 销售员业绩记录；销售员联络记录；销售员服务记录；销售员催款记录；销售员投诉记录

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.