csjtp.pas

根据箱号

unit Csjtp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Cmodel, Menus, StdCtrls, ExtCtrls, Buttons, ExtDlgs;

type
  Tsjtp = class(Tmodel)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    Image2: TImage;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjtp: Tsjtp;

implementation
  uses cmain,IniFiles;
{$R *.dfm}

procedure Tsjtp.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if OpenPictureDialog1.Execute then
     begin
       edit1.Text:=OpenPictureDialog1.FileName;
       image2.Picture.LoadFromFile(''+edit1.text+'');
     end;
end;

procedure Tsjtp.BitBtn4Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tsjtp.BitBtn2Click(Sender: TObject);
var
  inifile:tinifile;
  nn:string;
begin
  inherited;
  main.Image1.Picture.LoadFromFile(''+edit1.Text+'');
  modalresult:=mrok;
  main.Image1.Visible:=false;
  main.Image1.Visible:=true;
  if FileExists(Trim(ExtractFilePath(Application.ExeName)+'USER.ini')) = True then
       begin
        Try
           inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName))+'USER.ini');
           with Inifile do
           begin
             Writestring('界面图片','路径',''+edit1.text+'');
           end;
         Finally
          Inifile.Free;
        End;
  end;
end;

end.