js110unit.pas

管理系统.rar - RAR 压缩文件, 解包大小为 107,263,136 字节

{ |<PRE>
================================================================================
* 软件名称：HY
* 单元名称：货运作业结算总单
* 单元版本：V1.0
* 单元作者：cm991 ([e-mail])
* 备    注：开发完成
* 开发平台：Access2000+windows2000 + Delphi7
* 兼容测试：PWin9X/2000/XP + Delphi 7
* 本 地 化：
* 更新记录：2003.03.21 V1.0
*               创建单元
================================================================================
|</PRE>}

unit JS110Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PublicUnit, jpeg, ExtCtrls, StdCtrls, Grids, DBGrids;

type
  TJS110Form = class(TPublicUnit)
    Panel1: TPanel;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JS110Form: TJS110Form;

implementation

uses main, JS230Unit, JS220Unit, JS210Unit;

{$R *.dfm}

procedure TJS110Form.Button1Click(Sender: TObject);
begin
  inherited;
  try {--- 弹出仓库结算单窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + MainForm.JS230.Caption;
     {--- 显示窗体的标题变化  ---}
    JS230Form := TJS230Form.Create(Application);
    JS230Form.ManualDock(MainForm.Panel1, nil, AlClient)
  except
    MessageBox(0, '仓库结算单窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TJS110Form.Button2Click(Sender: TObject);
begin
  inherited;
  try {--- 弹出费用统计窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + MainForm.JS220.Caption;
     {--- 显示窗体的标题变化  ---}
    JS220Form := TJS220Form.Create(Application);
    JS220Form.ManualDock(MainForm.Panel1, nil, AlClient)
  except
    MessageBox(0, '费用统计窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TJS110Form.Button3Click(Sender: TObject);
begin
  inherited;
  try {--- 弹出结算分单窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + MainForm.JS210.Caption;
     {--- 显示窗体的标题变化  ---}
    JS210Form := TJS210Form.Create(Application);
    JS210Form.ManualDock(MainForm.Panel1, nil, AlClient)
  except
    MessageBox(0, '结算分单窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

end.