formshujubeifen.pas

来自「这是一个关于药品进销存的管理软件」· PAS 代码 · 共 66 行

unit FormShujubeifen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls;

type
  TShujubeifen = class(TForm)
    button1: TButton;
    SaveDialog1: TSaveDialog;
    ADOQuery1: TADOQuery;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    Label1: TLabel;
    procedure button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Shujubeifen: TShujubeifen;

implementation

uses FormManage;

{$R *.dfm}

procedure TShujubeifen.button1Click(Sender: TObject);

 Var  S, T: TFileStream;
Begin
manage.Close;
adoquery1.Close;
if OpenDialog1.Execute then
begin
if trim(OpenDialog1.filename)<>'' then
S := TFileStream.Create (OpenDialog1.filename, fmOpenRead )
else exit;
end;
if SaveDialog1.Execute then
begin
if trim(SaveDialog1.filename)<>'' then
begin
try
T := TFileStream.Create (SaveDialog1.filename,fmOpenWrite or  fmCreate );
try
T.CopyFrom(S, S.Size ) ;
finally
T.Free;
end;
finally
S.Free;
      end;
    end else exit;
  end; Shujubeifen.Close;
manage.Show;
end;


end.