unitshenhe1.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unitshenhe1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

type
  TFrmshenhe1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Label3: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    i:integer;
    checkername:string;{ Public declarations }
  end;

var
  Frmshenhe1: TFrmshenhe1;

implementation

uses main, Unitsupplier;

{$R *.DFM}

procedure TFrmshenhe1.FormCreate(Sender: TObject);
begin
   edit1.Text:=mainfm.Querysupplier['厂家名称'];
   edit2.Text:=frmaddnewgoods.edpinming.Text;
   edit3.Text:=frmaddnewgoods.Edguige.Text;
   edit4.Text:=frmaddnewgoods.Edjinjia.Text;
   edit5.Text:=frmaddnewgoods.Edshoujia.Text;
   edit6.Text:=frmaddnewgoods.ComboBox3.Text;
end;

procedure TFrmshenhe1.BitBtn2Click(Sender: TObject);
begin
   i:=0;
   frmshenhe1.Close;
end;

procedure TFrmshenhe1.BitBtn1Click(Sender: TObject);
begin
   if trim(edit7.Text)='' then
     begin
        messagebox(handle,'请填入审核人姓名！','提示',mb_iconwarning);
        exit;
     end
   else
      begin
         checkername:=edit7.Text;
         i:=1;
      end;
end;

end.