|
|
unit u_open_code;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, DB, ADODB, StdCtrls, Grids, DBGrids;
|
|
|
|
|
|
type
|
|
|
Tfrm_open_code = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinGroupBox2: TbsSkinGroupBox;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinGroupBox3: TbsSkinGroupBox;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton14: TbsSkinButton;
|
|
|
bsSkinButton16: TbsSkinButton;
|
|
|
bsSkinButton21: TbsSkinButton;
|
|
|
bsSkinButton22: TbsSkinButton;
|
|
|
bsSkinButton23: TbsSkinButton;
|
|
|
bsSkinButton27: TbsSkinButton;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
bsSkinButton19: TbsSkinButton;
|
|
|
bsSkinButton26: TbsSkinButton;
|
|
|
bsSkinButton13: TbsSkinButton;
|
|
|
bsSkinButton17: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton24: TbsSkinButton;
|
|
|
bsSkinButton20: TbsSkinButton;
|
|
|
bsSkinButton28: TbsSkinButton;
|
|
|
bsSkinButton29: TbsSkinButton;
|
|
|
bsSkinButton18: TbsSkinButton;
|
|
|
bsSkinButton30: TbsSkinButton;
|
|
|
bsSkinButton32: TbsSkinButton;
|
|
|
bsSkinButton33: TbsSkinButton;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
bsSkinButton35: TbsSkinButton;
|
|
|
bsSkinButton36: TbsSkinButton;
|
|
|
bsSkinButton37: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
bsSkinButton31: TbsSkinButton;
|
|
|
bsSkinButton39: TbsSkinButton;
|
|
|
bsSkinButton40: TbsSkinButton;
|
|
|
bsSkinButton41: TbsSkinButton;
|
|
|
bsSkinButton42: TbsSkinButton;
|
|
|
bsSkinButton43: TbsSkinButton;
|
|
|
bsSkinButton44: TbsSkinButton;
|
|
|
bsSkinButton45: TbsSkinButton;
|
|
|
bsSkinButton46: TbsSkinButton;
|
|
|
bsSkinButton47: TbsSkinButton;
|
|
|
bsSkinButton48: TbsSkinButton;
|
|
|
bsSkinButton49: TbsSkinButton;
|
|
|
bsSkinButton50: TbsSkinButton;
|
|
|
bsSkinButton51: TbsSkinButton;
|
|
|
bsSkinButton52: TbsSkinButton;
|
|
|
bsSkinButton53: TbsSkinButton;
|
|
|
bsSkinButton54: TbsSkinButton;
|
|
|
bsSkinButton55: TbsSkinButton;
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure open_code(code:string);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton13Click(Sender: TObject);
|
|
|
procedure bsSkinButton16Click(Sender: TObject);
|
|
|
procedure bsSkinButton14Click(Sender: TObject);
|
|
|
procedure bsSkinButton18Click(Sender: TObject);
|
|
|
procedure bsSkinButton17Click(Sender: TObject);
|
|
|
procedure bsSkinButton19Click(Sender: TObject);
|
|
|
procedure bsSkinButton20Click(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure bsSkinButton21Click(Sender: TObject);
|
|
|
procedure bsSkinButton22Click(Sender: TObject);
|
|
|
procedure bsSkinButton23Click(Sender: TObject);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure bsSkinButton27Click(Sender: TObject);
|
|
|
procedure bsSkinPanel1Resize(Sender: TObject);
|
|
|
procedure bsSkinButton28Click(Sender: TObject);
|
|
|
procedure bsSkinButton29Click(Sender: TObject);
|
|
|
procedure bsSkinButton32Click(Sender: TObject);
|
|
|
procedure bsSkinButton33Click(Sender: TObject);
|
|
|
procedure bsSkinButton34Click(Sender: TObject);
|
|
|
procedure bsSkinButton35Click(Sender: TObject);
|
|
|
procedure bsSkinButton36Click(Sender: TObject);
|
|
|
procedure bsSkinButton37Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure bsSkinButton31Click(Sender: TObject);
|
|
|
procedure bsSkinButton30Click(Sender: TObject);
|
|
|
procedure bsSkinButton39Click(Sender: TObject);
|
|
|
procedure bsSkinButton40Click(Sender: TObject);
|
|
|
procedure bsSkinButton41Click(Sender: TObject);
|
|
|
procedure bsSkinButton42Click(Sender: TObject);
|
|
|
procedure bsSkinButton43Click(Sender: TObject);
|
|
|
procedure bsSkinButton44Click(Sender: TObject);
|
|
|
procedure bsSkinButton45Click(Sender: TObject);
|
|
|
procedure bsSkinButton46Click(Sender: TObject);
|
|
|
procedure bsSkinButton47Click(Sender: TObject);
|
|
|
procedure bsSkinButton48Click(Sender: TObject);
|
|
|
procedure bsSkinButton49Click(Sender: TObject);
|
|
|
procedure bsSkinButton50Click(Sender: TObject);
|
|
|
procedure bsSkinButton51Click(Sender: TObject);
|
|
|
procedure bsSkinButton52Click(Sender: TObject);
|
|
|
procedure bsSkinButton53Click(Sender: TObject);
|
|
|
procedure bsSkinButton54Click(Sender: TObject);
|
|
|
procedure bsSkinButton55Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_open_code: Tfrm_open_code;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, u_code_currency, u_code_fee, u_code_goods, u_code_items,
|
|
|
u_code_ctn, u_code_country, u_code_port, u_code_trade, u_code_package,
|
|
|
u_code_free, my_sys_function, u_code_code, u_code_ctn_kind, u_code_state,
|
|
|
u_code_signbill, u_code_price, u_code_vessel, u_code_print_head,
|
|
|
u_sys_parameters, u_code_client_parameter, u_code_contract,
|
|
|
u_code_fee_project, u_code_truck_client, u_code_truck_changzhan,
|
|
|
u_code_send_head, u_code_card, u_code_price_ctn, u_code_fee_color,
|
|
|
u_code_source, u_code_letter, u_code_fee_type, u_code_port_air,
|
|
|
u_code_send_address, u_code_empty, u_code_ctn_para, u_code_edi_port,
|
|
|
u_data_share, u_cw_design, u_cw_kemu, u_code_tiaokuan, u_code_shiyan,
|
|
|
u_code_UsdExRate, u_code_zhangqi_color, u_code_line_ctn,
|
|
|
u_code_ctn_detail, u_vessel_lines, u_sys_sale_profitset, u_code_line_edi,
|
|
|
u_code_port_load, u_sys_printset, u_code_fee_project_new,
|
|
|
u_code_fee_project_usd, u_code_custclass, u_code_pilcode, u_code_filetype,
|
|
|
u_code_billstatus;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_open_code.open_code(code:string);
|
|
|
begin
|
|
|
if not if_open(code) then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
case strtoint(code) of
|
|
|
5:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_currency:=tfrm_code_currency.Create (self);
|
|
|
frm_code_currency.ShowModal;
|
|
|
finally
|
|
|
frm_code_currency.Free;
|
|
|
end;
|
|
|
end;
|
|
|
6:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_fee:=tfrm_code_fee.Create (self);
|
|
|
frm_code_fee.ShowModal;
|
|
|
finally
|
|
|
frm_code_fee.Free;
|
|
|
end;
|
|
|
end;
|
|
|
7:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_goods:=tfrm_code_goods.Create (self);
|
|
|
frm_code_goods.ShowModal;
|
|
|
finally
|
|
|
frm_code_goods.Free;
|
|
|
end;
|
|
|
end;
|
|
|
8:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_items:=tfrm_code_items.Create (self);
|
|
|
frm_code_items.ShowModal;
|
|
|
finally
|
|
|
frm_code_items.Free;
|
|
|
end;
|
|
|
end;
|
|
|
9:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_ctn:=tfrm_code_ctn.Create (self);
|
|
|
frm_code_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_code_ctn.Free;
|
|
|
end;
|
|
|
end;
|
|
|
13:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_package:=tfrm_code_package.Create (self);
|
|
|
frm_code_package.ShowModal;
|
|
|
finally
|
|
|
frm_code_package.Free;
|
|
|
end;
|
|
|
end;
|
|
|
15:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_free:=tfrm_code_free.Create (self);
|
|
|
frm_code_free.ShowModal;
|
|
|
finally
|
|
|
frm_code_free.Free;
|
|
|
end;
|
|
|
end;
|
|
|
16:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_code:=tfrm_code_code.Create (self);
|
|
|
frm_code_code.ShowModal;
|
|
|
finally
|
|
|
frm_code_code.Free;
|
|
|
end;
|
|
|
end;
|
|
|
17:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_ctn_kind:=tfrm_code_ctn_kind.Create (self);
|
|
|
frm_code_ctn_kind.ShowModal;
|
|
|
finally
|
|
|
frm_code_ctn_kind.Free;
|
|
|
end;
|
|
|
end;
|
|
|
71:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_signbill:=tfrm_code_signbill.Create (self);
|
|
|
frm_code_signbill.ShowModal;
|
|
|
finally
|
|
|
frm_code_signbill.Free;
|
|
|
end;
|
|
|
end;
|
|
|
97:
|
|
|
begin
|
|
|
try
|
|
|
frm_code_vessel:=tfrm_code_vessel.Create (self);
|
|
|
frm_code_vessel.ShowModal;
|
|
|
finally
|
|
|
frm_code_vessel.Free;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_open_code.Hide;
|
|
|
frm_open_code.ManualFloat(frm_open_code.BoundsRect );
|
|
|
frm_open_code:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton4Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('008');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_code_port) then
|
|
|
frm_code_port:=tfrm_code_port.Create (self);
|
|
|
frm_code_port.ManualDock(frm_main.SearchTabs('frm_code_port',frm_code_port.caption),nil,alClient);
|
|
|
frm_code_port.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_trade:=tfrm_code_trade.Create (self);
|
|
|
frm_code_trade.ShowModal;
|
|
|
finally
|
|
|
frm_code_trade.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('013');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('015');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton11Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('016');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('005');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('006');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('007');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('009');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('017');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton13Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('052') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_code_state) then
|
|
|
frm_code_state:=tfrm_code_state.Create (self);
|
|
|
frm_code_state.ManualDock(frm_main.SearchTabs('frm_code_state',frm_code_state.caption),nil,alClient);
|
|
|
frm_code_state.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton16Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('071');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton14Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_open_code.open_code('097');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton18Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('070') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_print_head:=tfrm_code_print_head.Create (self);
|
|
|
frm_code_print_head.ShowModal;
|
|
|
finally
|
|
|
frm_code_print_head.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton17Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('096') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_sys_parameters) then
|
|
|
frm_sys_parameters:=tfrm_sys_parameters.Create (self);
|
|
|
frm_sys_parameters.ShowModal;
|
|
|
finally
|
|
|
frm_sys_parameters.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton19Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('119') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_client_parameter) then
|
|
|
frm_code_client_parameter:=tfrm_code_client_parameter.Create (self);
|
|
|
frm_code_client_parameter.ShowModal;
|
|
|
finally
|
|
|
frm_code_client_parameter.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton20Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('121') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_contract) then
|
|
|
frm_code_contract:=tfrm_code_contract.Create (self);
|
|
|
frm_code_contract.ShowModal;
|
|
|
finally
|
|
|
frm_code_contract.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton15Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('140') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_code_fee_project) then
|
|
|
frm_code_fee_project:=tfrm_code_fee_project.Create (self);
|
|
|
frm_code_fee_project.ManualDock(frm_main.SearchTabs('frm_code_fee_project',frm_code_fee_project.caption),nil,alClient);
|
|
|
frm_code_fee_project.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton21Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('142') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_truck_client:=tfrm_code_truck_client.Create (self);
|
|
|
code_truck_client_num:=0;
|
|
|
frm_code_truck_client.ShowModal;
|
|
|
finally
|
|
|
frm_code_truck_client.Free;
|
|
|
frm_code_truck_client:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton22Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('143') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_truck_changzhan:=tfrm_code_truck_changzhan.Create (self);
|
|
|
code_truck_changzhan_num:=0;
|
|
|
frm_code_truck_changzhan.ShowModal;
|
|
|
finally
|
|
|
frm_code_truck_changzhan.Free;
|
|
|
frm_code_truck_changzhan:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton23Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('144') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_send_head:=tfrm_code_send_head.Create (self);
|
|
|
code_send_head_num:=0;
|
|
|
frm_code_send_head.ShowModal;
|
|
|
|
|
|
finally
|
|
|
frm_code_send_head.Free;
|
|
|
frm_code_send_head:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('145') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_code_card) then
|
|
|
frm_code_card:=tfrm_code_card.Create (self);
|
|
|
frm_code_card.ManualDock(frm_main.SearchTabs('frm_code_card',frm_code_card.caption),nil,alClient);
|
|
|
frm_code_card.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton25Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('122') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_price_ctn) then
|
|
|
frm_code_price_ctn:=tfrm_code_price_ctn.Create (self);
|
|
|
frm_code_price_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_code_price_ctn.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('090') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_price:=tfrm_code_price.Create (self);
|
|
|
frm_code_price.ShowModal;
|
|
|
finally
|
|
|
frm_code_price.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton27Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('038') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_fee_color:=tfrm_code_fee_color.Create (self);
|
|
|
frm_code_fee_color.ShowModal;
|
|
|
finally
|
|
|
frm_code_fee_color.Free;
|
|
|
frm_code_fee_color:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinPanel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round((bsSkinPanel1.width-bsSkinPanel2.width)/5);
|
|
|
bsSkinGroupBox1.width:=i;
|
|
|
bsSkinGroupBox2.width:=i;
|
|
|
bsSkinGroupBox3.width:=i;
|
|
|
bsSkinGroupBox5.width:=i;
|
|
|
begin
|
|
|
limited_button('008',bsSkinButton4);
|
|
|
//limited_button('010',bsSkinButton8);
|
|
|
//limited_button('011',bsSkinButton6);
|
|
|
//limited_button('012',bsSkinButton5);
|
|
|
limited_button('013',bsSkinButton9);
|
|
|
limited_button('015',bsSkinButton10);
|
|
|
limited_button('016',bsSkinButton11);
|
|
|
limited_button('005',bsSkinButton1);
|
|
|
limited_button('006',bsSkinButton2);
|
|
|
limited_button('007',bsSkinButton3);
|
|
|
limited_button('009',bsSkinButton12);
|
|
|
limited_button('017',bsSkinButton7);
|
|
|
limited_button('052',bsSkinButton13);
|
|
|
limited_button('071',bsSkinButton16);
|
|
|
limited_button('097',bsSkinButton14);
|
|
|
limited_button('070',bsSkinButton18);
|
|
|
limited_button('096',bsSkinButton17);
|
|
|
limited_button('119',bsSkinButton19);
|
|
|
limited_button('121',bsSkinButton20);
|
|
|
limited_button('140',bsSkinButton15);
|
|
|
limited_button('142',bsSkinButton21);
|
|
|
limited_button('143',bsSkinButton22);
|
|
|
limited_button('144',bsSkinButton23);
|
|
|
limited_button('145',bsSkinButton24);
|
|
|
limited_button('122',bsSkinButton25);
|
|
|
limited_button('090',bsSkinButton26);
|
|
|
limited_button('038',bsSkinButton27);
|
|
|
limited_button('151',bsSkinButton29);
|
|
|
// limited_button('151',bsSkinButton29);
|
|
|
|
|
|
limited_button('153',bsSkinButton32);
|
|
|
limited_button('154',bsSkinButton33);
|
|
|
limited_button('155',bsSkinButton34);
|
|
|
limited_button('164',bsSkinButton35);
|
|
|
limited_button('165',bsSkinButton36);
|
|
|
limited_button('179',bsSkinButton38);
|
|
|
limited_button('188',bsSkinButton39);
|
|
|
limited_button('198',bsSkinButton40);
|
|
|
limited_button('252',bsSkinButton46);
|
|
|
limited_button('179',bsSkinButton47);
|
|
|
|
|
|
limited_button('226',bsSkinButton43);
|
|
|
limited_button('265',bsSkinButton44);
|
|
|
limited_button('264',bsSkinButton45);
|
|
|
limited_button('266',bsSkinButton41);
|
|
|
limited_button('170',bsSkinButton49);
|
|
|
|
|
|
limited_button('402',bsSkinButton50);
|
|
|
limited_button('403',bsSkinButton51);
|
|
|
limited_button('119',bsSkinButton52);
|
|
|
limited_button('179',bsSkinButton53);
|
|
|
|
|
|
limited_button('151',bsSkinButton54);
|
|
|
end;
|
|
|
|
|
|
if frm_data_share.t_sys_company.fieldbyname('OHTER').asboolean then
|
|
|
begin
|
|
|
bsSkinButton31.Visible:=true;
|
|
|
limited_button('183',bsSkinButton31);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinButton31.Visible:=false;
|
|
|
end;
|
|
|
if frm_data_share.t_sys_company.fieldbyname('OHTER').asboolean then
|
|
|
begin
|
|
|
bsSkinButton30.Visible:=true;
|
|
|
limited_button('184',bsSkinButton30);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
bsSkinButton30.Visible:=false;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton28Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton29Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('151') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_source:=tfrm_code_source.Create (self);
|
|
|
frm_code_source.ShowModal;
|
|
|
finally
|
|
|
frm_code_source.Free;
|
|
|
frm_code_source:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton32Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('153') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_letter) then
|
|
|
frm_code_letter:=tfrm_code_letter.Create (self);
|
|
|
frm_code_letter.ShowModal;
|
|
|
finally
|
|
|
frm_code_letter.free;
|
|
|
frm_code_letter:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton33Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('154') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_fee_type) then
|
|
|
frm_code_fee_type:=tfrm_code_fee_type.Create (self);
|
|
|
frm_code_fee_type.ShowModal;
|
|
|
finally
|
|
|
frm_code_fee_type.free;
|
|
|
frm_code_fee_type:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton34Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('155') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_port_air) then
|
|
|
frm_code_port_air:=tfrm_code_port_air.Create (self);
|
|
|
frm_code_port_air.ShowModal;
|
|
|
finally
|
|
|
frm_code_port_air.free;
|
|
|
frm_code_port_air:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton35Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('164') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_send_address) then
|
|
|
frm_code_send_address:=tfrm_code_send_address.Create (self);
|
|
|
frm_code_send_address.bsSkinButton3.Enabled:=false;
|
|
|
frm_code_send_address.ShowModal;
|
|
|
finally
|
|
|
frm_code_send_address.free;
|
|
|
frm_code_send_address:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton36Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('165') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_empty) then
|
|
|
frm_code_empty:=tfrm_code_empty.Create (self);
|
|
|
frm_code_empty.ShowModal;
|
|
|
finally
|
|
|
frm_code_empty.free;
|
|
|
frm_code_empty:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton37Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_code_ctn_para) then
|
|
|
frm_code_ctn_para:=tfrm_code_ctn_para.Create (self);
|
|
|
frm_code_ctn_para.ManualDock(frm_main.SearchTabs('frm_code_ctn_para',frm_code_ctn_para.caption),nil,alClient);
|
|
|
frm_code_ctn_para.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_code_country) then
|
|
|
frm_code_country:=tfrm_code_country.Create (self);
|
|
|
frm_code_country.ManualDock(frm_main.SearchTabs('frm_code_country',frm_code_country.caption),nil,alClient);
|
|
|
frm_code_country.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton38Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('179') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_edi_port) then
|
|
|
frm_code_edi_port:=tfrm_code_edi_port.Create (self);
|
|
|
frm_code_edi_port.ShowModal;
|
|
|
finally
|
|
|
frm_code_edi_port.free;
|
|
|
frm_code_edi_port:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton31Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('183') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_cw_design) then
|
|
|
frm_cw_design:=tfrm_cw_design.Create (self);
|
|
|
frm_cw_design.ShowModal;
|
|
|
finally
|
|
|
frm_cw_design.free;
|
|
|
frm_cw_design:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton30Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('184') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if not assigned(frm_cw_kemu) then
|
|
|
frm_cw_kemu:=tfrm_cw_kemu.Create (self);
|
|
|
frm_cw_kemu.ManualDock(frm_main.SearchTabs('frm_cw_kemu',frm_cw_kemu.caption),nil,alClient);
|
|
|
frm_cw_kemu.show;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton39Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('188') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_tiaokuan) then
|
|
|
frm_code_tiaokuan:=tfrm_code_tiaokuan.Create (self);
|
|
|
frm_code_tiaokuan.ShowModal;
|
|
|
finally
|
|
|
frm_code_tiaokuan.free;
|
|
|
frm_code_tiaokuan:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton40Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('198') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_shiyan) then
|
|
|
frm_code_shiyan:=tfrm_code_shiyan.Create (self);
|
|
|
frm_code_shiyan.ShowModal;
|
|
|
finally
|
|
|
frm_code_shiyan.free;
|
|
|
frm_code_shiyan:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton41Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('266') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_UsdExrate:=tfrm_code_UsdExrate.Create (self);
|
|
|
frm_code_UsdExrate.ShowModal;
|
|
|
finally
|
|
|
frm_code_UsdExRate.Free;
|
|
|
frm_code_UsdExRate:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton42Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('038') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_zhangqi_color:=tfrm_code_zhangqi_color.Create (self);
|
|
|
frm_code_zhangqi_color.ShowModal;
|
|
|
finally
|
|
|
frm_code_zhangqi_color.Free;
|
|
|
frm_code_zhangqi_color:=nil;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton43Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('226') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_line_ctn) then
|
|
|
frm_code_line_ctn:=tfrm_code_line_ctn.Create (self);
|
|
|
frm_code_line_ctn.ShowModal;
|
|
|
finally
|
|
|
frm_code_line_ctn.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton44Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('265') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_ctn_detail) then
|
|
|
frm_code_ctn_detail:=tfrm_code_ctn_detail.Create (self);
|
|
|
frm_code_ctn_detail.ShowModal;
|
|
|
finally
|
|
|
FreeAndNil(frm_code_ctn_detail);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton45Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('264') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_vessel_lines) then
|
|
|
frm_vessel_lines:=tfrm_vessel_lines.Create(self);
|
|
|
frm_vessel_lines.ShowModal;
|
|
|
finally
|
|
|
FreeAndNil(frm_vessel_lines);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton46Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('252') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_sys_sale_profitset:=tfrm_sys_sale_profitset.Create (self);
|
|
|
frm_sys_sale_profitset.ShowModal;
|
|
|
finally
|
|
|
FreeAndNil(frm_sys_sale_profitset);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton47Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('179') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
if not assigned(frm_code_line_edi) then
|
|
|
frm_code_line_edi:=tfrm_code_line_edi.Create (self);
|
|
|
frm_code_line_edi.ShowModal;
|
|
|
finally
|
|
|
frm_code_line_edi.free;
|
|
|
frm_code_line_edi:=NIL;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton48Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if not assigned(frm_code_port_load) then
|
|
|
frm_code_port_load:=tfrm_code_port_load.Create (self);
|
|
|
frm_code_port_load.ShowModal;
|
|
|
finally
|
|
|
frm_code_port_load.free;
|
|
|
frm_code_port_load:=NIL;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton49Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('170') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_sys_printset:=tfrm_sys_printset.Create (self);
|
|
|
frm_sys_printset.ShowModal;
|
|
|
finally
|
|
|
frm_sys_printset.Free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton50Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_code_fee_project_new) then
|
|
|
frm_code_fee_project_new:=tfrm_code_fee_project_new.Create (self);
|
|
|
frm_code_fee_project_new.ManualDock(frm_main.SearchTabs('frm_code_fee_project_new',frm_code_fee_project_new.caption),nil,alClient);
|
|
|
frm_code_fee_project_new.show;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton51Click(Sender: TObject);
|
|
|
begin
|
|
|
if not assigned(frm_code_fee_project_usd) then
|
|
|
frm_code_fee_project_usd:=tfrm_code_fee_project_usd.Create (self);
|
|
|
frm_code_fee_project_usd.ManualDock(frm_main.SearchTabs('frm_code_fee_project_usd',frm_code_fee_project_usd.caption),nil,alClient);
|
|
|
frm_code_fee_project_usd.show;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton52Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('119') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_custclass:=tfrm_code_custclass.Create (self);
|
|
|
frm_code_custclass.ShowModal;
|
|
|
finally
|
|
|
frm_code_custclass.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton53Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('179') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_pilcode:=tfrm_code_pilcode.Create (self);
|
|
|
frm_code_pilcode.ShowModal;
|
|
|
finally
|
|
|
frm_code_pilcode.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton54Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('151') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
try
|
|
|
frm_code_filetype:=tfrm_code_filetype.Create (self);
|
|
|
frm_code_filetype.ShowModal;
|
|
|
finally
|
|
|
frm_code_filetype.Free;
|
|
|
frm_code_filetype:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_open_code.bsSkinButton55Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
frm_code_billstatus:=tfrm_code_billstatus.Create (self);
|
|
|
frm_code_billstatus.ShowModal;
|
|
|
finally
|
|
|
frm_code_billstatus.Free;
|
|
|
frm_code_billstatus:=nil;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|