main.~pas

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

procedure TMainForm.ZY110Click(Sender: TObject);
begin
  try //弹出货运作业总单窗体
    MainForm.Caption := '货运作业物流系统 －－－  ' + ZY110.Caption;
    // 显示窗体的标题变化
    ZY110Form := TZY110Form.Create(Application);
    ZY110Form.PageControl1.TabIndex := 0;
    ZY110Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '货运作业总单窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

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

procedure TMainForm.ZY120Click(Sender: TObject);
begin
  try {--- 弹出托运明细记录查询窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + ZY120.Caption;
     {--- 显示窗体的标题变化  ---}
    ZY110Form := TZY110Form.Create(Application);
    ZY110Form.PageControl1.TabIndex := 3;
    ZY110Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '托运明细记录查询窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

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

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

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

procedure TMainForm.ZY310Click(Sender: TObject);
begin
  try {--- 弹出仓库记录窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + ZY310.Caption;
     {--- 显示窗体的标题变化  ---}
    ZY310Form := TZY310Form.Create(Application);
    ZY310Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '仓库记录窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.CX110Click(Sender: TObject);
begin
  try {--- 弹出库存记录窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX110.Caption;
     {--- 显示窗体的标题变化  ---}
    CX110Form := TCX110Form.Create(Application);
    CX110Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '库存记录窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.FW210Click(Sender: TObject);
begin
  try {--- 弹出导入导出窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + FW210.Caption;
     {--- 显示窗体的标题变化  ---}
    FW210Form := TFW210Form.Create(Application);
    FW210Form.Button1.Enabled := True;
    FW210Form.Button2.Enabled := False;
    FW210Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '导入导出窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.FW220Click(Sender: TObject);
begin
  try {--- 弹出导入导出窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + FW220.Caption;
     {--- 显示窗体的标题变化  ---}
    FW210Form := TFW210Form.Create(Application);
    FW210Form.Button1.Enabled := False;
    FW210Form.Button2.Enabled := True;
    FW210Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '导入导出窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.FW110Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFW110Form, FW110Form);
    {--- 设置那个按钮可用 ---}
    FW110Form.Button1.Enabled := True;
    FW110Form.Button2.Enabled := False;
    FW110Form.ShowModal;
    FW110Form.Free;
  except
    MessageBox(0, '备份恢复窗体创建错误', '', MB_OK + MB_ICONSTOP);
  end
end;

procedure TMainForm.FW120Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFW110Form, FW110Form);
        {--- 设置那个按钮可用 ---}
    FW110Form.Button1.Enabled := False;
    FW110Form.Button2.Enabled := True;
    FW110Form.ShowModal;
    FW110Form.Free;
  except
    MessageBox(0, '备份恢复窗体创建错误', '', MB_OK + MB_ICONSTOP);
  end
end;

procedure TMainForm.CX120Click(Sender: TObject);
begin
  try {--- 弹出委托单位窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX120.Caption;
     {--- 显示窗体的标题变化  ---}
    CX120Form := TCX120Form.Create(Application);
    CX120Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '委托单位窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.CX210Click(Sender: TObject);
begin
  try {--- 弹出经营单位窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX210.Caption;
     {--- 显示窗体的标题变化  ---}
    CX210Form := TCX210Form.Create(Application);
    CX210Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '经营单位窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.CX220Click(Sender: TObject);
begin
  try {--- 弹出托运记录窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX220.Caption;
     {--- 显示窗体的标题变化  ---}
    CX220Form := TCX220Form.Create(Application);
    CX220Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '托运记录窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.CX310Click(Sender: TObject);
begin
  try {--- 弹出车辆托运查询窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX310.Caption;
     {--- 显示窗体的标题变化  ---}
    CX310Form := TCX310Form.Create(Application);
    CX310Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '车辆托运查询窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.CX320Click(Sender: TObject);
begin
  try {--- 弹出托运明细记录查询窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX320.Caption;
     {--- 显示窗体的标题变化  ---}
    CX320Form := TCX320Form.Create(Application);
    CX320Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '托运明细记录查询创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.JS420Click(Sender: TObject);
begin
  try {--- 弹出托所属车队车辆查询窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + JS420.Caption;
     {--- 显示窗体的标题变化  ---}
    JS420Form := TJS420Form.Create(Application);
    JS420Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '所属车队车辆查询窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

procedure TMainForm.JS410Click(Sender: TObject);
begin
  try {--- 弹出车辆托运查询窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + CX310.Caption;
     {--- 显示窗体的标题变化  ---}
    CX310Form := TCX310Form.Create(Application);
    CX310Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '车辆托运查询窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

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

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

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

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

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

procedure TMainForm.JS320Click(Sender: TObject);
begin
  try {--- 弹出结算总目录窗体  ---}
    MainForm.Caption := '货运作业物流系统 －－－  ' + JS320.Caption;
     {--- 显示窗体的标题变化  ---}
    JS320Form := TJS320Form.Create(Application);
    JS320Form.ManualDock(Panel1, nil, AlClient)
  except
    MessageBox(0, '结算结算总目录窗体创建错误', '产生严重例外错误', MB_OK +
      MB_ICONSTOP);
  end;
end;

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

end.