|
|
unit u_code_ctn_para;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, BusinessSkinForm, bsSkinCtrls, ExtCtrls, DB, ADODB, StdCtrls,
|
|
|
Mask, DBCtrls, fcLabel;
|
|
|
|
|
|
type
|
|
|
Tfrm_code_ctn_para = class(TForm)
|
|
|
t_code_ctn_para: TADOQuery;
|
|
|
t_code_ctn_para1: TDataSource;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Panel1: TPanel;
|
|
|
Shape10: TShape;
|
|
|
Shape5: TShape;
|
|
|
Shape4: TShape;
|
|
|
Shape6: TShape;
|
|
|
Shape7: TShape;
|
|
|
Shape8: TShape;
|
|
|
Shape1: TShape;
|
|
|
Shape12: TShape;
|
|
|
Shape2: TShape;
|
|
|
Shape3: TShape;
|
|
|
Shape9: TShape;
|
|
|
Shape13: TShape;
|
|
|
Shape14: TShape;
|
|
|
Shape15: TShape;
|
|
|
Shape16: TShape;
|
|
|
Shape17: TShape;
|
|
|
Shape18: TShape;
|
|
|
Shape19: TShape;
|
|
|
Shape20: TShape;
|
|
|
Shape21: TShape;
|
|
|
Shape22: TShape;
|
|
|
Shape23: TShape;
|
|
|
Shape24: TShape;
|
|
|
Shape25: TShape;
|
|
|
Shape26: TShape;
|
|
|
Shape27: TShape;
|
|
|
Shape28: TShape;
|
|
|
Shape29: TShape;
|
|
|
Shape11: TShape;
|
|
|
Shape30: TShape;
|
|
|
Shape31: TShape;
|
|
|
Shape32: TShape;
|
|
|
Shape33: TShape;
|
|
|
Shape35: TShape;
|
|
|
Shape36: TShape;
|
|
|
Shape37: TShape;
|
|
|
Shape38: TShape;
|
|
|
Shape39: TShape;
|
|
|
Shape40: TShape;
|
|
|
Shape34: TShape;
|
|
|
Shape41: TShape;
|
|
|
Shape42: TShape;
|
|
|
Shape43: TShape;
|
|
|
Shape44: TShape;
|
|
|
Shape45: TShape;
|
|
|
Shape46: TShape;
|
|
|
Shape47: TShape;
|
|
|
Shape48: TShape;
|
|
|
Shape49: TShape;
|
|
|
Shape50: TShape;
|
|
|
Shape51: TShape;
|
|
|
Shape52: TShape;
|
|
|
Shape53: TShape;
|
|
|
Shape54: TShape;
|
|
|
Shape55: TShape;
|
|
|
Shape56: TShape;
|
|
|
Shape57: TShape;
|
|
|
Shape58: TShape;
|
|
|
Shape59: TShape;
|
|
|
Shape60: TShape;
|
|
|
Shape61: TShape;
|
|
|
Label2: TLabel;
|
|
|
Label3: TLabel;
|
|
|
Label4: TLabel;
|
|
|
Label5: TLabel;
|
|
|
Label6: TLabel;
|
|
|
Label7: TLabel;
|
|
|
Label8: TLabel;
|
|
|
Label9: TLabel;
|
|
|
Label10: TLabel;
|
|
|
Label11: TLabel;
|
|
|
Label12: TLabel;
|
|
|
Label13: TLabel;
|
|
|
Label14: TLabel;
|
|
|
Label15: TLabel;
|
|
|
Label16: TLabel;
|
|
|
Label17: TLabel;
|
|
|
Label18: TLabel;
|
|
|
Label19: TLabel;
|
|
|
Label20: TLabel;
|
|
|
Label21: TLabel;
|
|
|
Label22: TLabel;
|
|
|
Label23: TLabel;
|
|
|
Label24: TLabel;
|
|
|
Label25: TLabel;
|
|
|
Label26: TLabel;
|
|
|
Label27: TLabel;
|
|
|
Label28: TLabel;
|
|
|
Label29: TLabel;
|
|
|
Label30: TLabel;
|
|
|
Label31: TLabel;
|
|
|
Label32: TLabel;
|
|
|
Label33: TLabel;
|
|
|
Label34: TLabel;
|
|
|
Label35: TLabel;
|
|
|
Label36: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label38: TLabel;
|
|
|
Label39: TLabel;
|
|
|
Label40: TLabel;
|
|
|
Label41: TLabel;
|
|
|
Label42: TLabel;
|
|
|
Label43: TLabel;
|
|
|
Label44: TLabel;
|
|
|
Label45: TLabel;
|
|
|
Label46: TLabel;
|
|
|
Label47: TLabel;
|
|
|
Label48: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label50: TLabel;
|
|
|
Label51: TLabel;
|
|
|
Label52: TLabel;
|
|
|
Label53: TLabel;
|
|
|
Label54: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label57: TLabel;
|
|
|
Label58: TLabel;
|
|
|
Label59: TLabel;
|
|
|
Label60: TLabel;
|
|
|
Label61: TLabel;
|
|
|
Label62: TLabel;
|
|
|
Label63: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Label65: TLabel;
|
|
|
Label66: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBEdit3: TDBEdit;
|
|
|
DBEdit4: TDBEdit;
|
|
|
DBEdit5: TDBEdit;
|
|
|
DBEdit6: TDBEdit;
|
|
|
DBEdit7: TDBEdit;
|
|
|
DBEdit8: TDBEdit;
|
|
|
DBEdit9: TDBEdit;
|
|
|
DBEdit10: TDBEdit;
|
|
|
DBEdit11: TDBEdit;
|
|
|
DBEdit12: TDBEdit;
|
|
|
DBEdit13: TDBEdit;
|
|
|
DBEdit14: TDBEdit;
|
|
|
DBEdit15: TDBEdit;
|
|
|
DBEdit16: TDBEdit;
|
|
|
DBEdit17: TDBEdit;
|
|
|
DBEdit18: TDBEdit;
|
|
|
DBEdit19: TDBEdit;
|
|
|
DBEdit20: TDBEdit;
|
|
|
DBEdit21: TDBEdit;
|
|
|
DBEdit22: TDBEdit;
|
|
|
DBEdit23: TDBEdit;
|
|
|
DBEdit24: TDBEdit;
|
|
|
DBEdit25: TDBEdit;
|
|
|
DBEdit26: TDBEdit;
|
|
|
DBEdit27: TDBEdit;
|
|
|
DBEdit28: TDBEdit;
|
|
|
DBEdit29: TDBEdit;
|
|
|
DBEdit30: TDBEdit;
|
|
|
DBEdit31: TDBEdit;
|
|
|
DBEdit32: TDBEdit;
|
|
|
DBEdit33: TDBEdit;
|
|
|
DBEdit34: TDBEdit;
|
|
|
DBEdit35: TDBEdit;
|
|
|
DBEdit36: TDBEdit;
|
|
|
DBEdit37: TDBEdit;
|
|
|
DBEdit38: TDBEdit;
|
|
|
DBEdit39: TDBEdit;
|
|
|
DBEdit40: TDBEdit;
|
|
|
DBEdit41: TDBEdit;
|
|
|
DBEdit42: TDBEdit;
|
|
|
DBEdit43: TDBEdit;
|
|
|
DBEdit44: TDBEdit;
|
|
|
DBEdit45: TDBEdit;
|
|
|
DBEdit46: TDBEdit;
|
|
|
DBEdit47: TDBEdit;
|
|
|
DBEdit48: TDBEdit;
|
|
|
DBEdit49: TDBEdit;
|
|
|
DBEdit50: TDBEdit;
|
|
|
DBEdit51: TDBEdit;
|
|
|
DBEdit52: TDBEdit;
|
|
|
DBEdit53: TDBEdit;
|
|
|
DBEdit54: TDBEdit;
|
|
|
DBEdit55: TDBEdit;
|
|
|
DBEdit56: TDBEdit;
|
|
|
DBEdit57: TDBEdit;
|
|
|
DBEdit58: TDBEdit;
|
|
|
DBEdit59: TDBEdit;
|
|
|
DBEdit60: TDBEdit;
|
|
|
DBEdit61: TDBEdit;
|
|
|
DBEdit62: TDBEdit;
|
|
|
DBEdit63: TDBEdit;
|
|
|
DBEdit64: TDBEdit;
|
|
|
DBEdit65: TDBEdit;
|
|
|
DBEdit66: TDBEdit;
|
|
|
DBEdit67: TDBEdit;
|
|
|
DBEdit68: TDBEdit;
|
|
|
DBEdit69: TDBEdit;
|
|
|
DBEdit70: TDBEdit;
|
|
|
DBEdit71: TDBEdit;
|
|
|
DBEdit72: TDBEdit;
|
|
|
DBEdit73: TDBEdit;
|
|
|
DBEdit74: TDBEdit;
|
|
|
DBEdit75: TDBEdit;
|
|
|
DBEdit76: TDBEdit;
|
|
|
DBEdit77: TDBEdit;
|
|
|
DBEdit78: TDBEdit;
|
|
|
DBEdit79: TDBEdit;
|
|
|
DBEdit80: TDBEdit;
|
|
|
DBEdit81: TDBEdit;
|
|
|
DBEdit82: TDBEdit;
|
|
|
DBEdit83: TDBEdit;
|
|
|
DBEdit84: TDBEdit;
|
|
|
DBEdit85: TDBEdit;
|
|
|
DBEdit86: TDBEdit;
|
|
|
DBEdit87: TDBEdit;
|
|
|
DBEdit88: TDBEdit;
|
|
|
DBEdit89: TDBEdit;
|
|
|
DBEdit90: TDBEdit;
|
|
|
DBEdit91: TDBEdit;
|
|
|
DBEdit92: TDBEdit;
|
|
|
DBEdit93: TDBEdit;
|
|
|
DBEdit94: TDBEdit;
|
|
|
DBEdit95: TDBEdit;
|
|
|
DBEdit96: TDBEdit;
|
|
|
DBEdit97: TDBEdit;
|
|
|
DBEdit98: TDBEdit;
|
|
|
DBEdit99: TDBEdit;
|
|
|
DBEdit100: TDBEdit;
|
|
|
DBEdit101: TDBEdit;
|
|
|
DBEdit102: TDBEdit;
|
|
|
DBEdit103: TDBEdit;
|
|
|
DBEdit104: TDBEdit;
|
|
|
DBEdit105: TDBEdit;
|
|
|
DBEdit106: TDBEdit;
|
|
|
DBEdit107: TDBEdit;
|
|
|
DBEdit108: TDBEdit;
|
|
|
DBEdit109: TDBEdit;
|
|
|
DBEdit110: TDBEdit;
|
|
|
DBEdit111: TDBEdit;
|
|
|
DBEdit112: TDBEdit;
|
|
|
DBEdit113: TDBEdit;
|
|
|
DBEdit114: TDBEdit;
|
|
|
DBEdit115: TDBEdit;
|
|
|
DBEdit116: TDBEdit;
|
|
|
DBEdit117: TDBEdit;
|
|
|
DBEdit118: TDBEdit;
|
|
|
DBEdit119: TDBEdit;
|
|
|
DBEdit120: TDBEdit;
|
|
|
DBEdit121: TDBEdit;
|
|
|
DBEdit122: TDBEdit;
|
|
|
DBEdit123: TDBEdit;
|
|
|
DBEdit124: TDBEdit;
|
|
|
DBEdit125: TDBEdit;
|
|
|
DBEdit126: TDBEdit;
|
|
|
DBEdit127: TDBEdit;
|
|
|
DBEdit128: TDBEdit;
|
|
|
DBEdit129: TDBEdit;
|
|
|
DBEdit130: TDBEdit;
|
|
|
DBEdit131: TDBEdit;
|
|
|
DBEdit132: TDBEdit;
|
|
|
DBEdit133: TDBEdit;
|
|
|
DBEdit134: TDBEdit;
|
|
|
DBEdit135: TDBEdit;
|
|
|
DBEdit136: TDBEdit;
|
|
|
DBEdit137: TDBEdit;
|
|
|
DBEdit138: TDBEdit;
|
|
|
DBEdit139: TDBEdit;
|
|
|
DBEdit140: TDBEdit;
|
|
|
DBEdit141: TDBEdit;
|
|
|
DBEdit142: TDBEdit;
|
|
|
DBEdit143: TDBEdit;
|
|
|
DBEdit144: TDBEdit;
|
|
|
DBEdit145: TDBEdit;
|
|
|
DBEdit146: TDBEdit;
|
|
|
DBEdit147: TDBEdit;
|
|
|
DBEdit148: TDBEdit;
|
|
|
DBEdit149: TDBEdit;
|
|
|
DBEdit150: TDBEdit;
|
|
|
DBEdit151: TDBEdit;
|
|
|
DBEdit152: TDBEdit;
|
|
|
DBEdit153: TDBEdit;
|
|
|
DBEdit154: TDBEdit;
|
|
|
DBEdit155: TDBEdit;
|
|
|
DBEdit156: TDBEdit;
|
|
|
DBEdit157: TDBEdit;
|
|
|
DBEdit158: TDBEdit;
|
|
|
DBEdit159: TDBEdit;
|
|
|
DBEdit160: TDBEdit;
|
|
|
DBEdit161: TDBEdit;
|
|
|
DBEdit162: TDBEdit;
|
|
|
DBEdit163: TDBEdit;
|
|
|
DBEdit164: TDBEdit;
|
|
|
DBEdit165: TDBEdit;
|
|
|
DBEdit166: TDBEdit;
|
|
|
DBEdit167: TDBEdit;
|
|
|
DBEdit168: TDBEdit;
|
|
|
DBEdit169: TDBEdit;
|
|
|
DBEdit170: TDBEdit;
|
|
|
DBEdit171: TDBEdit;
|
|
|
DBEdit172: TDBEdit;
|
|
|
DBEdit173: TDBEdit;
|
|
|
DBEdit174: TDBEdit;
|
|
|
DBEdit175: TDBEdit;
|
|
|
DBEdit176: TDBEdit;
|
|
|
DBEdit177: TDBEdit;
|
|
|
DBEdit178: TDBEdit;
|
|
|
DBEdit179: TDBEdit;
|
|
|
DBEdit180: TDBEdit;
|
|
|
DBEdit181: TDBEdit;
|
|
|
DBEdit182: TDBEdit;
|
|
|
DBEdit183: TDBEdit;
|
|
|
DBEdit184: TDBEdit;
|
|
|
DBEdit185: TDBEdit;
|
|
|
DBEdit186: TDBEdit;
|
|
|
DBEdit187: TDBEdit;
|
|
|
DBEdit188: TDBEdit;
|
|
|
DBEdit189: TDBEdit;
|
|
|
DBEdit190: TDBEdit;
|
|
|
DBEdit191: TDBEdit;
|
|
|
DBEdit192: TDBEdit;
|
|
|
DBEdit193: TDBEdit;
|
|
|
DBEdit194: TDBEdit;
|
|
|
DBEdit195: TDBEdit;
|
|
|
DBEdit196: TDBEdit;
|
|
|
DBEdit197: TDBEdit;
|
|
|
DBEdit198: TDBEdit;
|
|
|
DBEdit199: TDBEdit;
|
|
|
DBEdit200: TDBEdit;
|
|
|
DBEdit201: TDBEdit;
|
|
|
DBEdit202: TDBEdit;
|
|
|
DBEdit203: TDBEdit;
|
|
|
DBEdit204: TDBEdit;
|
|
|
DBEdit205: TDBEdit;
|
|
|
DBEdit206: TDBEdit;
|
|
|
DBEdit207: TDBEdit;
|
|
|
DBEdit208: TDBEdit;
|
|
|
DBEdit209: TDBEdit;
|
|
|
DBEdit210: TDBEdit;
|
|
|
DBEdit211: TDBEdit;
|
|
|
DBEdit212: TDBEdit;
|
|
|
DBEdit213: TDBEdit;
|
|
|
DBEdit214: TDBEdit;
|
|
|
DBEdit215: TDBEdit;
|
|
|
DBEdit216: TDBEdit;
|
|
|
DBEdit217: TDBEdit;
|
|
|
DBEdit218: TDBEdit;
|
|
|
DBEdit219: TDBEdit;
|
|
|
DBEdit220: TDBEdit;
|
|
|
DBEdit221: TDBEdit;
|
|
|
DBEdit222: TDBEdit;
|
|
|
DBEdit223: TDBEdit;
|
|
|
DBEdit224: TDBEdit;
|
|
|
DBEdit225: TDBEdit;
|
|
|
DBEdit226: TDBEdit;
|
|
|
DBEdit227: TDBEdit;
|
|
|
DBEdit228: TDBEdit;
|
|
|
DBEdit229: TDBEdit;
|
|
|
DBEdit230: TDBEdit;
|
|
|
DBEdit231: TDBEdit;
|
|
|
DBEdit232: TDBEdit;
|
|
|
DBEdit233: TDBEdit;
|
|
|
DBEdit234: TDBEdit;
|
|
|
DBEdit235: TDBEdit;
|
|
|
DBEdit236: TDBEdit;
|
|
|
DBEdit237: TDBEdit;
|
|
|
DBEdit238: TDBEdit;
|
|
|
DBEdit239: TDBEdit;
|
|
|
DBEdit240: TDBEdit;
|
|
|
DBEdit241: TDBEdit;
|
|
|
DBEdit242: TDBEdit;
|
|
|
DBEdit243: TDBEdit;
|
|
|
DBEdit244: TDBEdit;
|
|
|
DBEdit245: TDBEdit;
|
|
|
DBEdit246: TDBEdit;
|
|
|
DBEdit247: TDBEdit;
|
|
|
DBEdit248: TDBEdit;
|
|
|
DBEdit249: TDBEdit;
|
|
|
DBEdit250: TDBEdit;
|
|
|
DBEdit251: TDBEdit;
|
|
|
DBEdit252: TDBEdit;
|
|
|
DBEdit253: TDBEdit;
|
|
|
DBEdit254: TDBEdit;
|
|
|
DBEdit255: TDBEdit;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
Label1: TLabel;
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure t_code_ctn_paraAfterPost(DataSet: TDataSet);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinPanel1Resize(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_code_ctn_para: Tfrm_code_ctn_para;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_code_ctn_para.open;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
if not if_open('171') then
|
|
|
begin
|
|
|
showmessage('<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD>д<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>Ȩ<EFBFBD>ޣ<EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
Panel1.Enabled:=true;
|
|
|
bsSkinButton2.Enabled:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.t_code_ctn_paraAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
Panel1.Enabled:=false;
|
|
|
bsSkinButton2.Enabled:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_code_ctn_para);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_code_ctn_para);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.bsSkinPanel1Resize(Sender: TObject);
|
|
|
begin
|
|
|
Panel1.Left:=round((bsSkinPanel1.Width-panel1.Width)/2);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_code_ctn_para.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
frm_code_ctn_para.Hide;
|
|
|
frm_code_ctn_para.ManualFloat(frm_code_ctn_para.BoundsRect );
|
|
|
frm_main.freeTabs('frm_code_ctn_para');
|
|
|
action:=cafree;
|
|
|
frm_code_ctn_para:=nil;
|
|
|
end;
|
|
|
|
|
|
end.
|