实例介绍
【实例简介】
货物配送物流系统(系统初始用户名：赵云。密码：1)
该系统使用的是ADO直接连接的Access 2000 的数据库，安装完成无需配置就可以正常使用该程序。
【实例截图】
【核心代码】
{
================================================================================
* 软件名称：货运作业物流系统
* 单元名称：主窗体文件
* 单元版本：V1.0
* 单元作者：cm991 (cm@ytht.net)
* 备 注：开发完成
* 开发平台：Access2000 windows2000 Delphi7
* 兼容测试：PWin9X/2000/XP Delphi 5/6/7
* 本 地 化：该单元中的字符串支持本地化处理方式
* 更新记录：2003.03.15 V1.0
* 创建单元
================================================================================
|</PRE>}
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, ComCtrls, StdCtrls;
type
UserInfo = record // 定义用户信息
UserID: string; // 用户编号
UserName: string; // 用户名称
end;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
ZY: TMenuItem;
ZY110: TMenuItem;
ZY120: TMenuItem;
ZY130: TMenuItem;
N6: TMenuItem;
ZY210: TMenuItem;
ZY220: TMenuItem;
N9: TMenuItem;
ZY310: TMenuItem;
CX: TMenuItem;
CX110: TMenuItem;
CX120: TMenuItem;
N14: TMenuItem;
CX210: TMenuItem;
CX220: TMenuItem;
N17: TMenuItem;
CX310: TMenuItem;
CX320: TMenuItem;
JS: TMenuItem;
JS110: TMenuItem;
N22: TMenuItem;
JS210: TMenuItem;
JS220: TMenuItem;
JS230: TMenuItem;
JS240: TMenuItem;
N27: TMenuItem;
JS310: TMenuItem;
JS320: TMenuItem;
N31: TMenuItem;
JS420: TMenuItem;
N33: TMenuItem;
JS510: TMenuItem;
WH: TMenuItem;
WH110: TMenuItem;
WH120: TMenuItem;
N38: TMenuItem;
WH210: TMenuItem;
N40: TMenuItem;
WH310: TMenuItem;
WH320: TMenuItem;
WH330: TMenuItem;
WH340: TMenuItem;
WH350: TMenuItem;
WH360: TMenuItem;
N47: TMenuItem;
WH410: TMenuItem;
WH420: TMenuItem;
FW: TMenuItem;
FW110: TMenuItem;
FW120: TMenuItem;
N53: TMenuItem;
FW210: TMenuItem;
FW220: TMenuItem;
Help: TMenuItem;
Help110: TMenuItem;
Panel1: TPanel;
StatusBar1: TStatusBar;
JS410: TMenuItem;
procedure Panel1DockDrop(Sender: TObject; Source: TDragDockObject; X,
Y: Integer);
procedure WH110Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure WH120Click(Sender: TObject);
procedure WH210Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure WH310Click(Sender: TObject);
procedure WH320Click(Sender: TObject);
procedure WH330Click(Sender: TObject);
procedure WH340Click(Sender: TObject);
procedure WH350Click(Sender: TObject);
procedure Help110Click(Sender: TObject);
procedure WH360Click(Sender: TObject);
procedure WH410Click(Sender: TObject);
procedure WH420Click(Sender: TObject);
procedure ZY110Click(Sender: TObject);
procedure JS510Click(Sender: TObject);
procedure ZY120Click(Sender: TObject);
procedure ZY130Click(Sender: TObject);
procedure ZY210Click(Sender: TObject);
procedure ZY220Click(Sender: TObject);
procedure ZY310Click(Sender: TObject);
procedure CX110Click(Sender: TObject);
procedure FW210Click(Sender: TObject);
procedure FW220Click(Sender: TObject);
procedure FW110Click(Sender: TObject);
procedure FW120Click(Sender: TObject);
procedure CX120Click(Sender: TObject);
procedure CX210Click(Sender: TObject);
procedure CX220Click(Sender: TObject);
procedure CX310Click(Sender: TObject);
procedure CX320Click(Sender: TObject);
procedure JS420Click(Sender: TObject);
procedure JS410Click(Sender: TObject);
procedure JS210Click(Sender: TObject);
procedure JS220Click(Sender: TObject);
procedure JS230Click(Sender: TObject);
procedure JS240Click(Sender: TObject);
procedure JS310Click(Sender: TObject);
procedure JS320Click(Sender: TObject);
procedure JS110Click(Sender: TObject);
private
{ Private declarations }
public
Auser: Userinfo;
{ Public declarations }
end;
var
MainForm: TMainForm;
Hour, Min, Sec, MSec, year, month, day: Word;
implementation
uses WH110Unit, DMUnit, WH120Unit, WH210Unit, WH310Unit, WH320Unit,
WH330Unit, WH340Unit, WH350Unit, WH360Unit, WH410Unit, WH420Unit,
ZY110Unit, JS510Unit, ZY130Unit, ZY210Unit, ZY220Unit, ZY310Unit,
CX110Unit, FW210Unit, FW110Unit, CX120Unit, CX210Unit, CX220Unit,
CX310Unit, CX320Unit, JS420Unit, JS210Unit, JS220Unit, JS230Unit,
JS240Unit, JS310Unit, JS320Unit, JS110Unit;
{$R *.dfm}
procedure TMainForm.Panel1DockDrop(Sender: TObject;
Source: TDragDockObject; X, Y: Integer);
var
i: integer;
begin
i := 0;
{--- 如果要打开一个新的窗体，判断是否打开了一个窗体，如果是则关闭 ---}
while (i <= Panel1.ControlCount - 1) and (Panel1.ControlCount > 1) do
begin
if Panel1.Controls[i] is TForm then
begin
{--- 释放一个控件后I不递增 ---}
Panel1.Controls[i].Free;
end
else
i := i 1; {--- 如果不是，I加1 ---}
end;
end;
procedure TMainForm.WH110Click(Sender: TObject);
begin
try //弹出公司资料设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH110.Caption;
// 显示窗体的标题变化
WH110Form := TWH110Form.Create(Application);
WH110Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '公司资料设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
StatusBar1.Panels[0].TEXT := DM.company.FieldByName('名称').AsString;
StatusBar1.Panels[1].TEXT := '操作员编号： ' Auser.UserID;
StatusBar1.Panels[2].TEXT := '操作员姓名： ' Auser.UserName;
end;
procedure TMainForm.WH120Click(Sender: TObject);
begin
try //弹出公司资料设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH120.Caption;
// 显示窗体的标题变化
WH120Form := TWH120Form.Create(Application);
WH120Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '操作人员权限设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH210Click(Sender: TObject);
begin
try
Application.CreateForm(TWH210Form, WH210Form);
WH210Form.ShowModal;
WH210Form.Free;
except
MessageBox(0, '密码改变窗体创建错误', '', MB_OK MB_ICONSTOP);
end
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(0, '真的要退出本系统吗?', '确认', MB_YESNO MB_ICONQUESTION) =
IDYES then
begin
DM.UserLogin.Locate('用户名称', Auser.UserName, []);
// 定位当前用户在数据库中的位置
//记录用户的退出时间
DecodeDate(now, year, month, day);
DecodeTime(Now, Hour, Min, Sec, MSec);
DM.UserLogin.Edit;
//记录退出日期
DM.UserLogin.FieldByName('退出日期').AsString := IntToStr(year) '年'
IntToStr(Month) '月' IntToStr(day) '日';
DM.UserLogin.FieldByName('退出时间').AsString := IntToStr(Hour) '时'
IntToStr(Min) '分' IntToStr(sec) '秒';
DM.UserLogin.Post;
Application.Terminate;
end
else
begin
Action := caNone;
end;
end;
procedure TMainForm.WH310Click(Sender: TObject);
begin
try //弹出物流方式设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH310.Caption;
// 显示窗体的标题变化
WH310Form := TWH310Form.Create(Application);
WH310Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '物流方式设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH320Click(Sender: TObject);
begin
try //弹出委托单位设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH320.Caption;
// 显示窗体的标题变化
WH320Form := TWH320Form.Create(Application);
WH320Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '委托单位设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH330Click(Sender: TObject);
begin
try //弹出经营单位设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH330.Caption;
// 显示窗体的标题变化
WH330Form := TWH330Form.Create(Application);
WH330Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '经营单位设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH340Click(Sender: TObject);
begin
try //弹出到港名称设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH340.Caption;
// 显示窗体的标题变化
WH340Form := TWH340Form.Create(Application);
WH340Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '到港名称设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH350Click(Sender: TObject);
begin
try //弹出仓库名称设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH350.Caption;
// 显示窗体的标题变化
WH350Form := TWH350Form.Create(Application);
WH350Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '仓库名称设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.Help110Click(Sender: TObject);
begin
MessageBox(0, ' 货物配送物流管理系统' #13#10 ' ' #13#10
' 版本1.0' #13#10 ' ' #13#10 ' 内部测试', '关于…………',
MB_OK MB_ICONINFORMATION);
end;
procedure TMainForm.WH360Click(Sender: TObject);
begin
try //弹出车辆资料管理设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH360.Caption;
// 显示窗体的标题变化
WH360Form := TWH360Form.Create(Application);
WH360Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '车辆资料管理窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH410Click(Sender: TObject);
begin
try //弹出客户明细资料设置窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH410.Caption;
// 显示窗体的标题变化
WH410Form := TWH410Form.Create(Application);
WH410Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '客户明细资料设置窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
procedure TMainForm.WH420Click(Sender: TObject);
begin
try //弹出传真窗体
MainForm.Caption := '货运作业物流系统 －－－ ' WH420.Caption;
// 显示窗体的标题变化
WH420Form := TWH420Form.Create(Application);
WH420Form.ManualDock(Panel1, nil, AlClient)
except
MessageBox(0, '传真窗体创建错误', '产生严重例外错误', MB_OK
MB_ICONSTOP);
end;
end;
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.
小贴士
感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论