|
|
unit u_sys_limited;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms,
|
|
|
DB, ADODB, ExtCtrls, bsSkinCtrls, ComCtrls, bsSkinTabs, StdCtrls, Mask,
|
|
|
wwdbedit, Wwdotdot, Wwdbcomb, CheckLst, u_sys_data, DBCtrls, u_sys_data_d,
|
|
|
u_sys_data_v, RxLookup, XPMenu, Menus, u_sys_data_price, bsdbctrls,
|
|
|
dxtree, dxdbtree, ImgList;
|
|
|
|
|
|
type
|
|
|
Tfrm_sys_limited = class(TForm)
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1DP_ID: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
t_sys_open: TADOQuery;
|
|
|
t_sys_open1: TDataSource;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinTabSheet2: TbsSkinTabSheet;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
t_sys_employee1: TDataSource;
|
|
|
t_sys_employee: TADOQuery;
|
|
|
fra_sys_data1: Tfra_sys_data;
|
|
|
fra_sys_data2: Tfra_sys_data;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
bsSkinButton10: TbsSkinButton;
|
|
|
t_sys_code: TADOQuery;
|
|
|
fra_sys_data3: Tfra_sys_data;
|
|
|
fra_sys_data4: Tfra_sys_data;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
bsSkinTabSheet3: TbsSkinTabSheet;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label1: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
fra_sys_data_d5: Tfra_sys_data_d;
|
|
|
fra_sys_data_d6: Tfra_sys_data_d;
|
|
|
fra_sys_data_d7: Tfra_sys_data_d;
|
|
|
fra_sys_data_d8: Tfra_sys_data_d;
|
|
|
fra_sys_data_d9: Tfra_sys_data_d;
|
|
|
fra_sys_data_d10: Tfra_sys_data_d;
|
|
|
fra_sys_data_d11: Tfra_sys_data_d;
|
|
|
fra_sys_data_d12: Tfra_sys_data_d;
|
|
|
bsSkinTabSheet4: TbsSkinTabSheet;
|
|
|
fra_sys_data_v1: Tfra_sys_data_v;
|
|
|
fra_sys_data_d13: Tfra_sys_data_d;
|
|
|
fra_sys_data_v2: Tfra_sys_data_v;
|
|
|
fra_sys_data_v3: Tfra_sys_data_v;
|
|
|
fra_sys_data_v4: Tfra_sys_data_v;
|
|
|
fra_sys_data_v5: Tfra_sys_data_v;
|
|
|
fra_sys_data_v6: Tfra_sys_data_v;
|
|
|
bsSkinTabSheet5: TbsSkinTabSheet;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
fra_sys_data5: Tfra_sys_data;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
Label9: TLabel;
|
|
|
RxDBLookupCombo2: TRxDBLookupCombo;
|
|
|
t_sys_lg: TADOQuery;
|
|
|
t_sys_lg1: TDataSource;
|
|
|
t_sys_lg_open: TADOQuery;
|
|
|
t_sys_lg_open1: TDataSource;
|
|
|
t_sys_lg_data: TADOQuery;
|
|
|
t_sys_lg_data1: TDataSource;
|
|
|
PopupMenu1: TPopupMenu;
|
|
|
N1: TMenuItem;
|
|
|
N2: TMenuItem;
|
|
|
N3: TMenuItem;
|
|
|
XPMenu1: TXPMenu;
|
|
|
fra_sys_data8: Tfra_sys_data;
|
|
|
bsSkinTabSheet6: TbsSkinTabSheet;
|
|
|
fra_sys_data6: Tfra_sys_data;
|
|
|
fra_sys_data7: Tfra_sys_data;
|
|
|
fra_sys_data9: Tfra_sys_data;
|
|
|
fra_sys_data10: Tfra_sys_data;
|
|
|
fra_sys_data11: Tfra_sys_data;
|
|
|
fra_sys_data12: Tfra_sys_data;
|
|
|
fra_sys_data13: Tfra_sys_data;
|
|
|
fra_sys_data_v8: Tfra_sys_data_v;
|
|
|
fra_sys_data_v9: Tfra_sys_data_v;
|
|
|
bsSkinPanel3: TbsSkinPanel;
|
|
|
Label2: TLabel;
|
|
|
bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
|
|
|
bsSkinDBCheckRadioBox3: TbsSkinDBCheckRadioBox;
|
|
|
fra_sys_data14: Tfra_sys_data;
|
|
|
fra_sys_data15: Tfra_sys_data;
|
|
|
fra_sys_data_d14: Tfra_sys_data_d;
|
|
|
fra_sys_data_v7: Tfra_sys_data_v;
|
|
|
fra_sys_data_v10: Tfra_sys_data_v;
|
|
|
fra_sys_data16: Tfra_sys_data;
|
|
|
fra_sys_data17: Tfra_sys_data;
|
|
|
fra_sys_data18: Tfra_sys_data;
|
|
|
fra_sys_data19: Tfra_sys_data;
|
|
|
dxdbgrdclmnDBGrid1Column3: TdxDBGridColumn;
|
|
|
N4: TMenuItem;
|
|
|
FirstModule: TMenuItem;
|
|
|
TwoModule: TMenuItem;
|
|
|
N7: TMenuItem;
|
|
|
N8: TMenuItem;
|
|
|
N9: TMenuItem;
|
|
|
N10: TMenuItem;
|
|
|
lcxQryTmp: TADOQuery;
|
|
|
N5: TMenuItem;
|
|
|
bsSkinTabSheet7: TbsSkinTabSheet;
|
|
|
fra_sys_data_v11: Tfra_sys_data_v;
|
|
|
fra_sys_data20: Tfra_sys_data;
|
|
|
fra_sys_data21: Tfra_sys_data;
|
|
|
fra_sys_data22: Tfra_sys_data;
|
|
|
fra_sys_data23: Tfra_sys_data;
|
|
|
bsSkinPanel4: TbsSkinPanel;
|
|
|
Label3: TLabel;
|
|
|
RxDBLookupCombo6: TRxDBLookupCombo;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
|
cpt_sys_code_emp: TADOQuery;
|
|
|
cpt_sys_code_data: TADOQuery;
|
|
|
t_sys_code_data: TADOQuery;
|
|
|
st_sys_open: TADOQuery;
|
|
|
fra_sys_data24: Tfra_sys_data;
|
|
|
qrymodule: TADOQuery;
|
|
|
dsrmodule: TDataSource;
|
|
|
bsSkinPageControl2: TbsSkinPageControl;
|
|
|
tab1: TbsSkinTabSheet;
|
|
|
tab2: TbsSkinTabSheet;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGrid2Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column3: TdxDBGridMaskColumn;
|
|
|
dxDBGrid2Column4: TdxDBGridCheckColumn;
|
|
|
dxDBGrid2Column5: TdxDBGridColumn;
|
|
|
dxDBGrid2Column6: TdxDBGridColumn;
|
|
|
dxDBTreeView1: TdxDBTreeView;
|
|
|
Splitter2: TSplitter;
|
|
|
dxDBGrid3: TdxDBGrid;
|
|
|
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
|
|
|
dxDBGridCheckColumn1: TdxDBGridCheckColumn;
|
|
|
dxDBGridColumn1: TdxDBGridColumn;
|
|
|
dxDBGridColumn2: TdxDBGridColumn;
|
|
|
t_sys_open_tree: TADOQuery;
|
|
|
t_sys_open_tree1: TDataSource;
|
|
|
ImageList1: TImageList;
|
|
|
dxDBGrid3Column5: TdxDBGridColumn;
|
|
|
fra_sys_data_v12: Tfra_sys_data_v;
|
|
|
fra_sys_data25: Tfra_sys_data;
|
|
|
fra_sys_data26: Tfra_sys_data;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N6: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
fra_sys_data27: Tfra_sys_data;
|
|
|
fra_sys_data_d1: Tfra_sys_data_d;
|
|
|
fra_sys_data28: Tfra_sys_data;
|
|
|
fra_sys_data29: Tfra_sys_data;
|
|
|
fra_sys_data30: Tfra_sys_data;
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure update_all(data:Tadoquery;str:string);
|
|
|
procedure update_price(data:Tadoquery;str:string);
|
|
|
procedure update_group_data_all(data:Tadoquery;str:string;str_boolean:integer);
|
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinPanel1Resize(Sender: TObject);
|
|
|
procedure Label9DblClick(Sender: TObject);
|
|
|
procedure N1Click(Sender: TObject);
|
|
|
procedure N3Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure t_sys_openBeforePost(DataSet: TDataSet);
|
|
|
function if_open_limited(str:string):boolean;
|
|
|
procedure enable_bsSkinTabSheet2;
|
|
|
procedure enable_bsSkinTabSheet3;
|
|
|
procedure enable_bsSkinTabSheet4;
|
|
|
procedure enable_bsSkinTabSheet5;
|
|
|
procedure enable_bsSkinTabSheet6;
|
|
|
procedure enable_bsSkinTabSheet7;
|
|
|
procedure t_sys_employeeAfterScroll(DataSet: TDataSet);
|
|
|
procedure bsSkinPageControl1Change(Sender: TObject);
|
|
|
procedure t_sys_openAfterPost(DataSet: TDataSet);
|
|
|
procedure N7Click(Sender: TObject);
|
|
|
procedure N8Click(Sender: TObject);
|
|
|
procedure N9Click(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure PopupMenu1Popup(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox1Exit(Sender: TObject);
|
|
|
procedure bsSkinDBCheckRadioBox1MouseEnter(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure t_sys_lg_dataAfterPost(DataSet: TDataSet);
|
|
|
procedure dxDBTreeView1Change(Sender: TObject; Node: TTreeNode);
|
|
|
procedure t_sys_open_treeBeforePost(DataSet: TDataSet);
|
|
|
procedure t_sys_open_treeAfterPost(DataSet: TDataSet);
|
|
|
procedure t_sys_employeeBeforeScroll(DataSet: TDataSet);
|
|
|
procedure N6Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
function getQuan(fid:integer):String;
|
|
|
procedure closealltable;
|
|
|
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_sys_limited: Tfrm_sys_limited;
|
|
|
op_limited:boolean;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_data_share, u_main, u_sys_progress, my_sys_function,
|
|
|
u_sys_limited_group, my_sys_chat;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
begin
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3> <20><>ʾ
|
|
|
if if_open_limited('014') or if_open_limited('152') or if_open_limited('288') then begin
|
|
|
fra_sys_data1.Visible:=true; //<2F><><EFBFBD>˽<EFBFBD><CBBD>ڡ<EFBFBD><DAA1><EFBFBD><EFBFBD><EFBFBD>
|
|
|
fra_sys_data1.t_op.open;
|
|
|
fra_sys_data1.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data1.Visible:=false;
|
|
|
fra_sys_data1.t_op.close;
|
|
|
fra_sys_data1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('054') then begin
|
|
|
fra_sys_data2.Visible:=true;
|
|
|
fra_sys_data2.t_op.open;
|
|
|
fra_sys_data2.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data2.Visible:=false;
|
|
|
fra_sys_data2.t_op.close;
|
|
|
fra_sys_data2.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('072') then begin
|
|
|
fra_sys_data3.Visible:=true;
|
|
|
fra_sys_data3.t_op.open;
|
|
|
fra_sys_data3.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data3.Visible:=false;
|
|
|
fra_sys_data3.t_op.close;
|
|
|
fra_sys_data3.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('080') then begin
|
|
|
fra_sys_data4.Visible:=true;
|
|
|
fra_sys_data4.t_op.open;
|
|
|
fra_sys_data4.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data4.Visible:=false;
|
|
|
fra_sys_data4.t_op.close;
|
|
|
fra_sys_data4.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
///////////
|
|
|
if if_open_limited('021') or if_open_limited('301') or if_open_limited('302') or if_open_limited('232') then begin
|
|
|
fra_sys_data_d9.Visible:=true;
|
|
|
fra_sys_data_d9.t_op.open;
|
|
|
fra_sys_data_d9.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_d9.Visible:=false;
|
|
|
fra_sys_data_d9.t_op.close;
|
|
|
fra_sys_data_d9.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('057') then begin
|
|
|
fra_sys_data_d10.Visible:=true;
|
|
|
fra_sys_data_d10.t_op.open;
|
|
|
fra_sys_data_d10.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_d10.Visible:=false;
|
|
|
fra_sys_data_d10.t_op.close;
|
|
|
fra_sys_data_d10.t_sql.close;
|
|
|
end;
|
|
|
if if_open_limited('075') then begin
|
|
|
fra_sys_data_d11.Visible:=true;
|
|
|
fra_sys_data_d11.t_op.open;
|
|
|
fra_sys_data_d11.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_d11.Visible:=false;
|
|
|
fra_sys_data_d11.t_op.close;
|
|
|
fra_sys_data_d11.t_sql.close;
|
|
|
end;
|
|
|
if if_open_limited('083') then begin
|
|
|
fra_sys_data_d12.Visible:=true;
|
|
|
fra_sys_data_d12.t_op.open;
|
|
|
fra_sys_data_d12.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_d12.Visible:=false;
|
|
|
fra_sys_data_d12.t_op.close;
|
|
|
fra_sys_data_d12.t_sql.close;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
begin
|
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3> <20><>ʾ
|
|
|
if if_open_limited('024') or if_open_limited('027') or if_open_limited('146') then begin
|
|
|
fra_sys_data16.Visible:=true;
|
|
|
fra_sys_data16.t_op.open;
|
|
|
fra_sys_data16.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data16.t_op.close;
|
|
|
fra_sys_data16.t_sql.close;
|
|
|
fra_sys_data16.Visible:=false;
|
|
|
end;
|
|
|
if if_open_limited('060') or if_open_limited('061') or if_open_limited('147') then begin
|
|
|
fra_sys_data17.Visible:=true;
|
|
|
fra_sys_data17.t_op.open;
|
|
|
fra_sys_data17.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data17.Visible:=false;
|
|
|
fra_sys_data17.t_op.close;
|
|
|
fra_sys_data17.t_sql.close;
|
|
|
end;
|
|
|
if if_open_limited('076') or if_open_limited('079') or if_open_limited('235') or if_open_limited('236') then begin
|
|
|
fra_sys_data18.Visible:=true;
|
|
|
fra_sys_data18.t_op.open;
|
|
|
fra_sys_data18.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data18.Visible:=false;
|
|
|
fra_sys_data18.t_op.close;
|
|
|
fra_sys_data18.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('084') or if_open_limited('087') or if_open_limited('149') then begin
|
|
|
fra_sys_data19.Visible:=true;
|
|
|
fra_sys_data19.t_op.open;
|
|
|
fra_sys_data19.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data19.Visible:=false;
|
|
|
fra_sys_data19.t_op.close;
|
|
|
fra_sys_data19.t_sql.close;
|
|
|
end;
|
|
|
////
|
|
|
if if_open_limited('028') or if_open_limited('281') then
|
|
|
begin
|
|
|
fra_sys_data_d5.Visible:=true;
|
|
|
fra_sys_data_d6.Visible:=true;
|
|
|
fra_sys_data_d5.t_op.open;
|
|
|
fra_sys_data_d5.t_sql.open;
|
|
|
fra_sys_data_d6.t_op.open;
|
|
|
fra_sys_data_d6.t_sql.open;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_sys_data_d5.Visible:=false;
|
|
|
fra_sys_data_d6.Visible:=false;
|
|
|
fra_sys_data_d5.t_op.close;
|
|
|
fra_sys_data_d5.t_sql.close;
|
|
|
fra_sys_data_d6.t_op.close;
|
|
|
fra_sys_data_d6.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('036') or if_open_limited('032')
|
|
|
or if_open_limited('034') or if_open_limited('037')
|
|
|
or if_open_limited('278') then
|
|
|
begin
|
|
|
fra_sys_data_d7.Visible:=true;
|
|
|
fra_sys_data_d8.Visible:=true;
|
|
|
fra_sys_data_d7.t_op.open;
|
|
|
fra_sys_data_d7.t_sql.open;
|
|
|
fra_sys_data_d8.t_op.open;
|
|
|
fra_sys_data_d8.t_sql.open;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_sys_data_d7.Visible:=false;
|
|
|
fra_sys_data_d8.Visible:=false;
|
|
|
fra_sys_data_d7.t_op.close;
|
|
|
fra_sys_data_d7.t_sql.close;
|
|
|
fra_sys_data_d8.t_op.Close;
|
|
|
fra_sys_data_d8.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
begin
|
|
|
if if_open_limited('040') or
|
|
|
if_open_limited('150') or
|
|
|
if_open_limited('062') or
|
|
|
if_open_limited('088') or
|
|
|
if_open_limited('089') or
|
|
|
if_open_limited('041') then begin
|
|
|
fra_sys_data_v1.Visible:=true;
|
|
|
fra_sys_data_v1.t_op.Open;
|
|
|
fra_sys_data_v1.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v1.Visible:=false;
|
|
|
fra_sys_data_v1.t_op.close;
|
|
|
fra_sys_data_v1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('131') or
|
|
|
if_open_limited('132') or
|
|
|
if_open_limited('133') or
|
|
|
if_open_limited('134') or
|
|
|
if_open_limited('135') or
|
|
|
if_open_limited('136') or
|
|
|
if_open_limited('137') or
|
|
|
if_open_limited('271') or
|
|
|
if_open_limited('138') then begin
|
|
|
fra_sys_data_d13.Visible:=true;
|
|
|
fra_sys_data_d13.t_op.Open;
|
|
|
fra_sys_data_d13.t_sql.Open;
|
|
|
|
|
|
fra_sys_data_d1.Visible:=true;
|
|
|
fra_sys_data_d1.t_op.Open;
|
|
|
fra_sys_data_d1.t_sql.Open;
|
|
|
|
|
|
end else begin
|
|
|
fra_sys_data_d13.Visible:=false;
|
|
|
fra_sys_data_d13.t_op.close;
|
|
|
fra_sys_data_d13.t_sql.close;
|
|
|
|
|
|
fra_sys_data_d1.Visible:=false;
|
|
|
fra_sys_data_d1.t_op.close;
|
|
|
fra_sys_data_d1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('042') or
|
|
|
if_open_limited('064') or
|
|
|
if_open_limited('098') or
|
|
|
if_open_limited('099') or
|
|
|
if_open_limited('043') or
|
|
|
if_open_limited('129') then begin
|
|
|
fra_sys_data_v2.Visible:=true;
|
|
|
fra_sys_data_v2.t_op.Open;
|
|
|
fra_sys_data_v2.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v2.Visible:=false;
|
|
|
fra_sys_data_v2.t_op.close;
|
|
|
fra_sys_data_v2.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('044') or
|
|
|
if_open_limited('063') or
|
|
|
if_open_limited('100') or
|
|
|
if_open_limited('101') or
|
|
|
if_open_limited('102') then begin
|
|
|
fra_sys_data_v3.Visible:=true;
|
|
|
fra_sys_data_v3.t_op.Open;
|
|
|
fra_sys_data_v3.t_sql.Open;
|
|
|
|
|
|
end else begin
|
|
|
fra_sys_data_v3.Visible:=false;
|
|
|
fra_sys_data_v3.t_op.close;
|
|
|
fra_sys_data_v3.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('045') or
|
|
|
if_open_limited('065') or
|
|
|
if_open_limited('103') or
|
|
|
if_open_limited('104') or
|
|
|
if_open_limited('105') or
|
|
|
if_open_limited('046') then begin
|
|
|
fra_sys_data_v4.Visible:=true;
|
|
|
fra_sys_data_v4.t_op.Open;
|
|
|
fra_sys_data_v4.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v4.Visible:=false;
|
|
|
fra_sys_data_v4.t_op.close;
|
|
|
fra_sys_data_v4.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('047') or
|
|
|
if_open_limited('066') or
|
|
|
if_open_limited('106') or
|
|
|
if_open_limited('107') or
|
|
|
if_open_limited('108') or
|
|
|
if_open_limited('130') then begin
|
|
|
fra_sys_data_v5.Visible:=true;
|
|
|
fra_sys_data_v5.t_op.Open;
|
|
|
fra_sys_data_v5.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v5.Visible:=false;
|
|
|
fra_sys_data_v5.t_op.close;
|
|
|
fra_sys_data_v5.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('048') or
|
|
|
if_open_limited('156') or
|
|
|
if_open_limited('067') or
|
|
|
if_open_limited('109') or
|
|
|
if_open_limited('110') or
|
|
|
if_open_limited('111') or
|
|
|
if_open_limited('049') or
|
|
|
if_open_limited('068') or
|
|
|
if_open_limited('112') or
|
|
|
if_open_limited('113') or
|
|
|
if_open_limited('114') or
|
|
|
if_open_limited('050') or
|
|
|
if_open_limited('157') or
|
|
|
if_open_limited('069') or
|
|
|
if_open_limited('115') or
|
|
|
if_open_limited('116') or
|
|
|
if_open_limited('117') then begin
|
|
|
fra_sys_data_v6.Visible:=true;
|
|
|
fra_sys_data_v6.t_op.Open;
|
|
|
fra_sys_data_v6.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v6.Visible:=false;
|
|
|
fra_sys_data_v6.t_op.close;
|
|
|
fra_sys_data_v6.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('194') or
|
|
|
if_open_limited('195') or
|
|
|
if_open_limited('196') or
|
|
|
if_open_limited('230') or
|
|
|
if_open_limited('204') then begin
|
|
|
fra_sys_data_v10.Visible:=true;
|
|
|
fra_sys_data_v10.t_op.Open;
|
|
|
fra_sys_data_v10.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v10.Visible:=false;
|
|
|
fra_sys_data_v10.t_op.close;
|
|
|
fra_sys_data_v10.t_sql.close;
|
|
|
end
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
begin
|
|
|
if if_open_limited('091') or if_open_limited('018') then begin
|
|
|
fra_sys_data5.Visible:=true;
|
|
|
fra_sys_data5.t_op.Open;
|
|
|
fra_sys_data5.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data5.Visible:=false;
|
|
|
fra_sys_data5.t_op.close;
|
|
|
fra_sys_data5.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('127') then begin
|
|
|
fra_sys_data12.Visible:=true;
|
|
|
fra_sys_data12.t_op.Open;
|
|
|
fra_sys_data12.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data12.Visible:=false;
|
|
|
fra_sys_data12.t_op.close;
|
|
|
fra_sys_data12.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('128') then begin
|
|
|
fra_sys_data13.Visible:=true;
|
|
|
fra_sys_data13.t_op.Open;
|
|
|
fra_sys_data13.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data13.Visible:=false;
|
|
|
fra_sys_data13.t_op.close;
|
|
|
fra_sys_data13.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('094') then begin
|
|
|
fra_sys_data8.Visible:=true;
|
|
|
fra_sys_data8.t_op.Open;
|
|
|
fra_sys_data8.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data8.Visible:=false;
|
|
|
fra_sys_data8.t_op.close;
|
|
|
fra_sys_data8.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('120') then begin
|
|
|
fra_sys_data_v8.Visible:=true;
|
|
|
fra_sys_data_v8.t_op.Open;
|
|
|
fra_sys_data_v8.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v8.Visible:=false;
|
|
|
fra_sys_data_v8.t_op.close;
|
|
|
fra_sys_data_v8.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('093') then begin
|
|
|
fra_sys_data_v9.Visible:=true;
|
|
|
fra_sys_data_v9.t_op.Open;
|
|
|
fra_sys_data_v9.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_v9.Visible:=false;
|
|
|
fra_sys_data_v9.t_op.close;
|
|
|
fra_sys_data_v9.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('140') or
|
|
|
if_open_limited('022')or
|
|
|
if_open_limited('023')or
|
|
|
if_open_limited('055')or
|
|
|
if_open_limited('056')or
|
|
|
if_open_limited('073')or
|
|
|
if_open_limited('074')or
|
|
|
if_open_limited('081')or
|
|
|
|
|
|
if_open_limited('082')
|
|
|
then begin
|
|
|
fra_sys_data14.Visible:=true;
|
|
|
fra_sys_data14.t_op.Open;
|
|
|
fra_sys_data14.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data14.Visible:=false;
|
|
|
fra_sys_data14.t_op.close;
|
|
|
fra_sys_data14.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('022')or
|
|
|
if_open_limited('023')or
|
|
|
if_open_limited('055')or
|
|
|
if_open_limited('056')or
|
|
|
if_open_limited('073')or
|
|
|
if_open_limited('074')or
|
|
|
if_open_limited('081')or
|
|
|
if_open_limited('082') then begin
|
|
|
fra_sys_data_d14.Visible:=true;
|
|
|
fra_sys_data_d14.t_op.Open;
|
|
|
fra_sys_data_d14.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data_d14.Visible:=false;
|
|
|
fra_sys_data_d14.t_op.close;
|
|
|
fra_sys_data_d14.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
//2018-5-2 sxh
|
|
|
if if_open_limited('091') then begin
|
|
|
fra_sys_data30.Visible:=true;
|
|
|
fra_sys_data30.t_op.Open;
|
|
|
fra_sys_data30.t_sql.Open;
|
|
|
end else begin
|
|
|
fra_sys_data30.Visible:=false;
|
|
|
fra_sys_data30.t_op.close;
|
|
|
fra_sys_data30.t_sql.close;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
begin
|
|
|
if if_open_limited('053') then
|
|
|
begin
|
|
|
fra_sys_data6.Visible:=true ;
|
|
|
fra_sys_data7.Visible:=true ;
|
|
|
fra_sys_data9.Visible:=true ;
|
|
|
fra_sys_data10.Visible:=true ;
|
|
|
fra_sys_data24.Visible:=true ;
|
|
|
fra_sys_data15.Visible:=true ;
|
|
|
fra_sys_data6.t_op.Open;
|
|
|
fra_sys_data6.t_sql.Open;
|
|
|
fra_sys_data7.t_op.Open;
|
|
|
fra_sys_data7.t_sql.Open;
|
|
|
fra_sys_data9.t_op.Open;
|
|
|
fra_sys_data9.t_sql.Open;
|
|
|
fra_sys_data10.t_op.Open;
|
|
|
fra_sys_data10.t_sql.Open;
|
|
|
fra_sys_data24.t_op.Open;
|
|
|
fra_sys_data24.t_sql.Open;
|
|
|
fra_sys_data15.t_op.Open;
|
|
|
fra_sys_data15.t_sql.Open;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
fra_sys_data6.Visible:=false;
|
|
|
fra_sys_data7.Visible:=false;
|
|
|
fra_sys_data9.Visible:=false;
|
|
|
fra_sys_data10.Visible:=false;
|
|
|
fra_sys_data24.Visible:=false;
|
|
|
fra_sys_data15.Visible:=false ;
|
|
|
fra_sys_data6.t_op.close;
|
|
|
fra_sys_data6.t_sql.close;
|
|
|
fra_sys_data7.t_op.close;
|
|
|
fra_sys_data7.t_sql.close;
|
|
|
fra_sys_data9.t_op.close;
|
|
|
fra_sys_data9.t_sql.close;
|
|
|
fra_sys_data10.t_op.close;
|
|
|
fra_sys_data10.t_sql.close;
|
|
|
fra_sys_data24.t_op.close;
|
|
|
fra_sys_data24.t_sql.close;
|
|
|
fra_sys_data15.t_op.close;
|
|
|
fra_sys_data15.t_sql.close;
|
|
|
|
|
|
|
|
|
end ;
|
|
|
|
|
|
if if_open_limited('125') then begin
|
|
|
fra_sys_data11.Visible:=true;
|
|
|
fra_sys_data11.t_op.open;
|
|
|
fra_sys_data11.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data11.Visible:=false;
|
|
|
fra_sys_data11.t_op.close;
|
|
|
fra_sys_data11.t_sql.close;
|
|
|
end;
|
|
|
fra_sys_data_v7.t_op.open;
|
|
|
fra_sys_data_v7.t_sql.open;
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_sys_limited.if_open_limited(str:string):boolean;
|
|
|
begin
|
|
|
if t_sys_open.Locate('Ȩ<><EFBFBD><DEB4><EFBFBD>',str,[])then
|
|
|
begin
|
|
|
result:=t_sys_open.fieldbyname('<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>').asboolean;
|
|
|
end
|
|
|
else
|
|
|
result:=false;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.update_group_data_all(data:Tadoquery;str:string;str_boolean:integer);
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if not data.Active then data.Open;
|
|
|
|
|
|
if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
data.First;
|
|
|
while not data.eof do
|
|
|
begin
|
|
|
if data.fieldbyname('ְԱ').asstring=data.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring then
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end;
|
|
|
data.next;
|
|
|
end;
|
|
|
end
|
|
|
else if str='ȫ<><C8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
data.First;
|
|
|
while not data.eof do
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
data.next;
|
|
|
end;
|
|
|
end
|
|
|
else if str='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
data.First;
|
|
|
while not data.eof do
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
data.next;
|
|
|
end;
|
|
|
end
|
|
|
else if str='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Clear;
|
|
|
aQuery.SQL.Add('Select * from t_sys_employee where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''
|
|
|
+data.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring
|
|
|
+''' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''+data.DataSource.DataSet.fieldbyname('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
|
|
|
aQuery.Open;
|
|
|
aQuery.First;
|
|
|
{
|
|
|
frm_data_share.t_sys_employee.Filtered:=false;
|
|
|
frm_data_share.t_sys_employee.Filter:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+data.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
frm_data_share.t_sys_employee.Filtered:=true;
|
|
|
frm_data_share.t_sys_employee.First;
|
|
|
}
|
|
|
data.First;
|
|
|
while not data.Eof do
|
|
|
begin
|
|
|
if aQuery.Locate('<27><><EFBFBD><EFBFBD>',data.fieldbyname('ְԱ').asstring,[]) then
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end;
|
|
|
data.next;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
// frm_data_share.t_sys_employee.Filtered:=false;
|
|
|
end
|
|
|
end
|
|
|
else if str='<27>ֹ<EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>' then //by lcx
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
aQuery.Close;
|
|
|
aQuery.SQL.Clear;
|
|
|
aQuery.SQL.Add('Select * from t_sys_employee where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''
|
|
|
+data.DataSource.DataSet.fieldbyname('<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>').asstring+'''');
|
|
|
aQuery.Open;
|
|
|
aQuery.First;
|
|
|
data.First;
|
|
|
while not data.Eof do
|
|
|
begin
|
|
|
if aQuery.Locate('<27><><EFBFBD><EFBFBD>',data.fieldbyname('ְԱ').asstring,[]) then
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
data.edit;
|
|
|
case str_boolean of
|
|
|
1:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
2:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
3:
|
|
|
begin
|
|
|
data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
end;
|
|
|
end;
|
|
|
data.post;
|
|
|
end;
|
|
|
data.next;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
data.Refresh;
|
|
|
if data.Active then data.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.update_price(data:Tadoquery;str:string);
|
|
|
begin
|
|
|
if not data.Locate('ְԱ','ȫ<><C8AB><EFBFBD><EFBFBD>',[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:='ȫ<><C8AB><EFBFBD><EFBFBD>';
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
|
|
|
if not data.Locate('ְԱ','<27>۹<D7BC><DBB9><EFBFBD>',[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:='<27>۹<D7BC><DBB9><EFBFBD>';
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
|
|
|
if not data.Locate('ְԱ','һ<><D2BB><EFBFBD>ۼ<EFBFBD>',[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:='һ<><D2BB><EFBFBD>ۼ<EFBFBD>';
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
|
|
|
if not data.Locate('ְԱ','<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>',[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
|
|
|
if not data.Locate('ְԱ','<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>',[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:='<27><><EFBFBD><EFBFBD><EFBFBD>ۼ<EFBFBD>';
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.update_all(data:Tadoquery;str:string);
|
|
|
begin
|
|
|
if not data.Active then data.Open;
|
|
|
data.First;
|
|
|
while not data.Eof do
|
|
|
begin
|
|
|
if not frm_data_share.t_sys_employee.Locate('<27><><EFBFBD><EFBFBD>',data.fieldbyname('ְԱ').asstring,[])then
|
|
|
data.Delete
|
|
|
else
|
|
|
data.next;
|
|
|
end;
|
|
|
frm_data_share.t_sys_employee.First;
|
|
|
while not frm_data_share.t_sys_employee.eof do
|
|
|
begin
|
|
|
if not data.Locate('ְԱ',frm_data_share.t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[])then
|
|
|
begin
|
|
|
data.insert;
|
|
|
data['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
data['ְԱ']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'];
|
|
|
data['<27><><EFBFBD><EFBFBD>']:=str;
|
|
|
data.post;
|
|
|
end;
|
|
|
frm_data_share.t_sys_employee.next;
|
|
|
end;
|
|
|
if data.Active then data.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_employee.open;
|
|
|
t_sys_open.open;
|
|
|
t_sys_code.open;
|
|
|
|
|
|
t_sys_lg.open;
|
|
|
t_sys_lg_open.open;
|
|
|
t_sys_lg_data.open;
|
|
|
t_sys_open_tree.open;
|
|
|
qrymodule.Open;
|
|
|
|
|
|
if t_project then begin
|
|
|
bsSkinPageControl2.ActivePage:=tab2;
|
|
|
end else begin
|
|
|
bsSkinPageControl2.ActivePage:=tab1;
|
|
|
end;
|
|
|
|
|
|
fra_sys_data1.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0001';
|
|
|
fra_sys_data1.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data1.t_op.open;
|
|
|
fra_sys_data1.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0001';
|
|
|
fra_sys_data1.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data1.t_sql.open;
|
|
|
|
|
|
fra_sys_data1.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3>ڲ<EFBFBD><DAB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̼챨<CCBC><ECB1A8>';
|
|
|
|
|
|
fra_sys_data2.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0002';
|
|
|
fra_sys_data2.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data2.t_op.open;
|
|
|
fra_sys_data2.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0002';
|
|
|
fra_sys_data2.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data2.t_sql.open;
|
|
|
|
|
|
fra_sys_data2.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD>ڲ<EFBFBD><DAB2><EFBFBD>';
|
|
|
|
|
|
fra_sys_data3.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0003';
|
|
|
fra_sys_data3.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data3.t_op.open;
|
|
|
fra_sys_data3.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0003';
|
|
|
fra_sys_data3.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data3.t_sql.open;
|
|
|
fra_sys_data3.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3>ڲ<EFBFBD><DAB2><EFBFBD>';
|
|
|
|
|
|
fra_sys_data4.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0004';
|
|
|
fra_sys_data4.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data4.t_op.open;
|
|
|
fra_sys_data4.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0004';
|
|
|
fra_sys_data4.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data4.t_sql.open;
|
|
|
|
|
|
fra_sys_data4.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD>ڲ<EFBFBD><DAB2><EFBFBD>';
|
|
|
|
|
|
fra_sys_data20.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0005';
|
|
|
fra_sys_data20.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_op.open;
|
|
|
fra_sys_data20.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0005';
|
|
|
fra_sys_data20.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_sql.open;
|
|
|
|
|
|
fra_sys_data20.bsSkinGroupBox9.Caption:='<27><><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data25.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0006';
|
|
|
fra_sys_data25.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_op.open;
|
|
|
fra_sys_data25.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0006';
|
|
|
fra_sys_data25.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_sql.open;
|
|
|
|
|
|
fra_sys_data25.bsSkinGroupBox9.Caption:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>';
|
|
|
|
|
|
fra_sys_data28.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0008';
|
|
|
fra_sys_data28.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_op.open;
|
|
|
fra_sys_data28.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0008';
|
|
|
fra_sys_data28.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data20.t_sql.open;
|
|
|
|
|
|
fra_sys_data28.bsSkinGroupBox9.Caption:='<27><>װ<EFBFBD><D7B0>ҵ<EFBFBD><D2B5>';
|
|
|
|
|
|
|
|
|
|
|
|
fra_sys_data29.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0017';
|
|
|
fra_sys_data29.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data29.t_op.open;
|
|
|
fra_sys_data29.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0017';
|
|
|
fra_sys_data29.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data29.t_sql.open;
|
|
|
|
|
|
fra_sys_data29.bsSkinGroupBox9.Caption:='Ԥ¼ϵͳ';
|
|
|
|
|
|
|
|
|
|
|
|
fra_sys_data16.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0011';
|
|
|
fra_sys_data16.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data16.t_op.open;
|
|
|
fra_sys_data16.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0011';
|
|
|
fra_sys_data16.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data16.t_sql.open;
|
|
|
|
|
|
fra_sys_data16.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data17.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0012';
|
|
|
fra_sys_data17.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data17.t_op.open;
|
|
|
fra_sys_data17.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0012';
|
|
|
fra_sys_data17.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data17.t_sql.open;
|
|
|
|
|
|
fra_sys_data17.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data18.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0013';
|
|
|
fra_sys_data18.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data18.t_op.open;
|
|
|
fra_sys_data18.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0013';
|
|
|
fra_sys_data18.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data18.t_sql.open;
|
|
|
|
|
|
fra_sys_data18.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data19.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0014';
|
|
|
fra_sys_data19.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data19.t_op.open;
|
|
|
fra_sys_data19.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0014';
|
|
|
fra_sys_data19.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data19.t_sql.open;
|
|
|
|
|
|
fra_sys_data19.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
|
|
|
fra_sys_data26.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0016';
|
|
|
fra_sys_data26.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data26.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0016';
|
|
|
fra_sys_data26.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data26.bsSkinGroupBox9.Caption:='<27><>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data27.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0015';
|
|
|
fra_sys_data27.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data27.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0015';
|
|
|
fra_sys_data27.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data27.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3>ڽ<EFBFBD><DABD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
|
|
|
|
|
|
fra_sys_data_d5.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1001';
|
|
|
fra_sys_data_d5.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d5.t_op.open;
|
|
|
fra_sys_data_d5.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1001';
|
|
|
fra_sys_data_d5.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d5.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d5.bsSkinGroupBox9.Caption:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
|
|
|
|
|
|
fra_sys_data_d6.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1002';
|
|
|
fra_sys_data_d6.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d6.t_op.open;
|
|
|
fra_sys_data_d6.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1002';
|
|
|
fra_sys_data_d6.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d6.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d6.bsSkinGroupBox9.Caption:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>뷢Ʊ';
|
|
|
|
|
|
fra_sys_data_d7.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1003';
|
|
|
fra_sys_data_d7.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d7.t_op.open;
|
|
|
fra_sys_data_d7.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1003';
|
|
|
fra_sys_data_d7.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d7.t_sql.open;
|
|
|
fra_sys_data_d7.bsSkinGroupBox9.Caption:='<27>ո<EFBFBD><D5B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
|
|
|
|
|
|
fra_sys_data_d8.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1004';
|
|
|
fra_sys_data_d8.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d8.t_op.open;
|
|
|
fra_sys_data_d8.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='1004';
|
|
|
fra_sys_data_d8.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d8.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d8.bsSkinGroupBox9.Caption:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>';
|
|
|
|
|
|
fra_sys_data_d9.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0021';
|
|
|
fra_sys_data_d9.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d9.t_op.open;
|
|
|
fra_sys_data_d9.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0021';
|
|
|
fra_sys_data_d9.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d9.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d9.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_d10.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0022';
|
|
|
fra_sys_data_d10.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d10.t_op.open;
|
|
|
fra_sys_data_d10.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0022';
|
|
|
fra_sys_data_d10.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d10.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d10.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_d11.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0023';
|
|
|
fra_sys_data_d11.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d11.t_op.open;
|
|
|
fra_sys_data_d11.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0023';
|
|
|
fra_sys_data_d11.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d11.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d11.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_d12.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0024';
|
|
|
fra_sys_data_d12.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d12.t_op.open;
|
|
|
fra_sys_data_d12.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0024';
|
|
|
fra_sys_data_d12.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d12.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d12.bsSkinGroupBox9.Caption:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v1.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0031';
|
|
|
fra_sys_data_v1.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v1.t_op.open;
|
|
|
fra_sys_data_v1.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0031';
|
|
|
fra_sys_data_v1.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v1.t_sql.open;
|
|
|
fra_sys_data_v1.bsSkinGroupBox9.Caption:='ҵ<><D2B5>̨<EFBFBD><CCA8>ͳ<EFBFBD><CDB3>';
|
|
|
|
|
|
fra_sys_data_d13.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0032';
|
|
|
fra_sys_data_d13.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d13.t_op.open;
|
|
|
fra_sys_data_d13.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0032';
|
|
|
fra_sys_data_d13.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_d13.t_sql.open;
|
|
|
|
|
|
fra_sys_data_d13.bsSkinGroupBox9.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_d1.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0030';
|
|
|
fra_sys_data_d1.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d1.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0030';
|
|
|
fra_sys_data_d1.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d1.bsSkinGroupBox9.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
|
|
|
|
|
|
fra_sys_data_v2.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0033';
|
|
|
fra_sys_data_v2.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v2.t_op.open;
|
|
|
fra_sys_data_v2.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0033';
|
|
|
fra_sys_data_v2.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v2.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v2.bsSkinGroupBox9.Caption:='Ƿ<><C7B7>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v3.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0034';
|
|
|
fra_sys_data_v3.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v3.t_op.open;
|
|
|
fra_sys_data_v3.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0034';
|
|
|
fra_sys_data_v3.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v3.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v3.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v4.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0035';
|
|
|
fra_sys_data_v4.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v4.t_op.open;
|
|
|
fra_sys_data_v4.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0035';
|
|
|
fra_sys_data_v4.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v4.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v4.bsSkinGroupBox9.Caption:='ҵ<><D2B5><EFBFBD><EFBFBD>Ʊͳ<C6B1><CDB3>';
|
|
|
|
|
|
fra_sys_data_v5.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0036';
|
|
|
fra_sys_data_v5.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v5.t_op.open;
|
|
|
fra_sys_data_v5.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0036';
|
|
|
fra_sys_data_v5.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v5.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v5.bsSkinGroupBox9.Caption:='<27>ʽ<EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v6.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0037';
|
|
|
fra_sys_data_v6.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v6.t_op.open;
|
|
|
fra_sys_data_v6.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0037';
|
|
|
fra_sys_data_v6.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v6.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v6.bsSkinGroupBox9.Caption:='ҵ<><D2B5>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v7.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0038';
|
|
|
fra_sys_data_v7.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v7.t_op.open;
|
|
|
fra_sys_data_v7.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0038';
|
|
|
fra_sys_data_v7.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v7.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v7.bsSkinGroupBox9.Caption:='ҵ<><D2B5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v10.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0039';
|
|
|
fra_sys_data_v10.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v10.t_op.open;
|
|
|
fra_sys_data_v10.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0039';
|
|
|
fra_sys_data_v10.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v10.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v10.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v11.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9002';
|
|
|
fra_sys_data_v11.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v11.t_op.open;
|
|
|
fra_sys_data_v11.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9002';
|
|
|
fra_sys_data_v11.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v11.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v11.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>渴<EFBFBD><E6B8B4>';
|
|
|
|
|
|
fra_sys_data_v12.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9001';
|
|
|
fra_sys_data_v12.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v11.t_op.open;
|
|
|
fra_sys_data_v12.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9001';
|
|
|
fra_sys_data_v12.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v11.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v12.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>';
|
|
|
|
|
|
|
|
|
fra_sys_data21.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9003';
|
|
|
fra_sys_data21.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data21.t_op.open;
|
|
|
fra_sys_data21.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9003';
|
|
|
fra_sys_data21.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data21.t_sql.open;
|
|
|
|
|
|
fra_sys_data21.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD>';
|
|
|
|
|
|
fra_sys_data22.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9004';
|
|
|
fra_sys_data22.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data22.t_op.open;
|
|
|
fra_sys_data22.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9004';
|
|
|
fra_sys_data22.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data22.t_sql.open;
|
|
|
|
|
|
fra_sys_data22.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>淶';
|
|
|
|
|
|
fra_sys_data23.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9005';
|
|
|
fra_sys_data23.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data23.t_op.open;
|
|
|
fra_sys_data23.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='9005';
|
|
|
fra_sys_data23.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data23.t_sql.open;
|
|
|
|
|
|
fra_sys_data23.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>̳';
|
|
|
|
|
|
fra_sys_data5.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0008';
|
|
|
fra_sys_data5.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data5.t_op.open;
|
|
|
fra_sys_data5.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='0008';
|
|
|
fra_sys_data5.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data5.t_sql.open;
|
|
|
|
|
|
fra_sys_data5.bsSkinGroupBox9.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data12.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8001';
|
|
|
fra_sys_data12.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data12.t_op.open;
|
|
|
fra_sys_data12.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8001';
|
|
|
fra_sys_data12.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data12.t_sql.open;
|
|
|
|
|
|
fra_sys_data12.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data13.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8002';
|
|
|
fra_sys_data13.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data13.t_op.open;
|
|
|
fra_sys_data13.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8002';
|
|
|
fra_sys_data13.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data13.t_sql.open;
|
|
|
|
|
|
fra_sys_data13.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>й<EFBFBD><D0B9><EFBFBD>';
|
|
|
|
|
|
fra_sys_data6.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3001';
|
|
|
fra_sys_data6.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data6.t_op.open;
|
|
|
fra_sys_data6.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3001';
|
|
|
fra_sys_data6.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data6.t_sql.open;
|
|
|
|
|
|
fra_sys_data6.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>˼۹<CBBC><DBB9><EFBFBD>';
|
|
|
|
|
|
fra_sys_data7.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3002';
|
|
|
fra_sys_data7.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data7.t_op.open;
|
|
|
fra_sys_data7.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3002';
|
|
|
fra_sys_data7.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data7.t_sql.open;
|
|
|
// fra_sys_data7.bsSkinGroupBox9.Caption:='<27>˼ۺ<CBBC>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>';
|
|
|
fra_sys_data7.bsSkinGroupBox9.Caption:='һ<><D2BB><EFBFBD>˼<EFBFBD>';
|
|
|
|
|
|
fra_sys_data8.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3003';
|
|
|
fra_sys_data8.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data8.t_op.open;
|
|
|
fra_sys_data8.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3003';
|
|
|
fra_sys_data8.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data8.t_sql.open;
|
|
|
|
|
|
fra_sys_data8.bsSkinGroupBox9.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data9.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3004';
|
|
|
fra_sys_data9.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data9.t_op.open;
|
|
|
fra_sys_data9.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3004';
|
|
|
fra_sys_data9.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data9.t_sql.open;
|
|
|
// fra_sys_data9.bsSkinGroupBox9.Caption:='ͬ<><CDAC><EFBFBD>˼۹<CBBC><DBB9><EFBFBD>';
|
|
|
fra_sys_data9.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD>';
|
|
|
|
|
|
fra_sys_data10.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3005';
|
|
|
fra_sys_data10.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data10.t_op.open;
|
|
|
fra_sys_data10.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3005';
|
|
|
fra_sys_data10.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data10.t_sql.open;
|
|
|
// fra_sys_data10.bsSkinGroupBox9.Caption:='<27>̻<EFBFBD><CCBB><EFBFBD><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>';
|
|
|
fra_sys_data10.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD>';
|
|
|
|
|
|
fra_sys_data24.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3006';
|
|
|
fra_sys_data24.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data24.t_op.open;
|
|
|
fra_sys_data24.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3006';
|
|
|
fra_sys_data24.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data24.t_sql.open;
|
|
|
fra_sys_data24.bsSkinGroupBox9.Caption:='ȫ<><C8AB><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data11.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3007';
|
|
|
fra_sys_data11.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data11.t_op.open;
|
|
|
fra_sys_data11.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3007';
|
|
|
fra_sys_data11.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data11.t_sql.open;
|
|
|
|
|
|
fra_sys_data11.bsSkinGroupBox9.Caption:='<27>˼۷<CBBC><DBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data15.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3008';
|
|
|
fra_sys_data15.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data15.t_op.open;
|
|
|
fra_sys_data15.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='3008';
|
|
|
fra_sys_data15.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data15.t_sql.open;
|
|
|
|
|
|
fra_sys_data15.bsSkinGroupBox9.Caption:='<27>۹<D7BC><DBB9><EFBFBD>';
|
|
|
|
|
|
//2018-5-2 sxh <20><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>ͻ<EFBFBD>Ȩ<EFBFBD><C8A8>
|
|
|
fra_sys_data30.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7001';
|
|
|
fra_sys_data30.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data30.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7001';
|
|
|
fra_sys_data30.t_sql.DataSource:=t_sys_employee1;
|
|
|
|
|
|
fra_sys_data30.bsSkinGroupBox9.Caption:='ҵ<><D2B5><EFBFBD>ͻ<EFBFBD>';
|
|
|
|
|
|
|
|
|
|
|
|
fra_sys_data_v8.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8003';
|
|
|
fra_sys_data_v8.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v8.t_op.open;
|
|
|
fra_sys_data_v8.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8003';
|
|
|
fra_sys_data_v8.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v8.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v8.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
fra_sys_data_v9.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8004';
|
|
|
fra_sys_data_v9.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v9.t_op.open;
|
|
|
fra_sys_data_v9.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8004';
|
|
|
fra_sys_data_v9.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data_v9.t_sql.open;
|
|
|
|
|
|
fra_sys_data_v9.bsSkinGroupBox9.Caption:='<27><>ʧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
if (strtobool(get_parameters_value(153,'false'))=true) then begin
|
|
|
fra_sys_data_d14.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7000';
|
|
|
fra_sys_data_d14.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d14.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7000';
|
|
|
fra_sys_data_d14.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d14.dxDBGrid1Column4.Visible:=true;
|
|
|
fra_sys_data_d14.N1.Visible:=true;
|
|
|
fra_sys_data_d14.N9.Visible:=true;
|
|
|
fra_sys_data_d14.bsSkinGroupBox9.Caption:='<27><><EFBFBD>÷<EFBFBD>Χ';
|
|
|
end else begin
|
|
|
fra_sys_data_d14.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7000';
|
|
|
fra_sys_data_d14.t_op.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d14.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='7000';
|
|
|
fra_sys_data_d14.t_sql.DataSource:=t_sys_employee1;
|
|
|
fra_sys_data_d14.dxDBGrid1Column4.Visible:=false;
|
|
|
fra_sys_data_d14.N1.Visible:=false;
|
|
|
fra_sys_data_d14.N9.Visible:=false;
|
|
|
fra_sys_data_d14.bsSkinGroupBox9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ķ<DEB8>Χ';
|
|
|
end;
|
|
|
|
|
|
fra_sys_data14.t_op.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8005';
|
|
|
fra_sys_data14.t_op.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data14.t_op.open;
|
|
|
fra_sys_data14.t_sql.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='8005';
|
|
|
fra_sys_data14.t_sql.DataSource:=t_sys_employee1;
|
|
|
// fra_sys_data14.t_sql.open;
|
|
|
|
|
|
fra_sys_data14.bsSkinGroupBox9.Caption:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|
|
|
|
|
dxDBGrid1.FullExpand;
|
|
|
dxDBGrid2.FullExpand;
|
|
|
|
|
|
op_limited:=true;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
SendMsg_gonggao('59','');
|
|
|
frm_data_share.t_sys_code_emp.Requery();
|
|
|
frm_data_share.t_sys_code_data.Requery();
|
|
|
frm_data_share.t_load_employee.Requery();
|
|
|
frm_sys_limited.Hide;
|
|
|
frm_sys_limited.ManualFloat(frm_sys_limited.BoundsRect );
|
|
|
frm_main.freeTabs('frm_sys_limited');
|
|
|
op_limited:=false;
|
|
|
action:=cafree;
|
|
|
frm_sys_limited:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton10Click(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=t_sys_employee.RecordCount*(t_sys_code.RecordCount+42);
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
t_sys_open.DisableControls;
|
|
|
t_sys_employee.first;
|
|
|
while not t_sys_employee.eof do
|
|
|
begin
|
|
|
t_sys_code.First;
|
|
|
while not t_sys_code.eof do
|
|
|
begin
|
|
|
if t_sys_open.Locate('Ȩ<><EFBFBD><DEB4><EFBFBD>',t_sys_code.fieldbyname('Ȩ<><EFBFBD><DEB4><EFBFBD>').asstring,[])then
|
|
|
begin
|
|
|
t_sys_open.edit;
|
|
|
t_sys_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_open.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sys_open.insert;
|
|
|
t_sys_open['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_sys_open['Ȩ<><EFBFBD><DEB4><EFBFBD>']:=t_sys_code['Ȩ<><EFBFBD><DEB4><EFBFBD>'];
|
|
|
t_sys_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_open.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_sys_code.next;
|
|
|
end;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data1.t_op,'0001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data2.t_op,'0002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data3.t_op,'0003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data4.t_op,'0004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data20.t_op,'0005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data25.t_op,'0006');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data28.t_op,'0008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data16.t_op,'0011');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data17.t_op,'0012');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data18.t_op,'0013');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data19.t_op,'0014');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data26.t_op,'0016');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data27.t_op,'0015');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d5.t_op,'1001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d6.t_op,'1002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d7.t_op,'1003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d8.t_op,'1004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d9.t_op,'0021');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d10.t_op,'0022');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d11.t_op,'0023');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d12.t_op,'0024');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v1.t_op,'0031');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d13.t_op,'0032');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d1.t_op,'0030');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v2.t_op,'0033');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v3.t_op,'0034');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v4.t_op,'0035');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v5.t_op,'0036');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v6.t_op,'0037');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v7.t_op,'0038');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v10.t_op,'0039');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v11.t_op,'9002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v11.t_op,'9001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data5.t_op,'0008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data6.t_op,'3001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data7.t_op,'3002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data8.t_op,'3003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data9.t_op,'3004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data10.t_op,'3005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_price(fra_sys_data24.t_op,'3006');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data11.t_op,'3007');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data15.t_op,'3008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data12.t_op,'8001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data13.t_op,'8002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v8.t_op,'8003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_v9.t_op,'8004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data14.t_op,'8005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
frm_sys_limited.update_all(fra_sys_data_d14.t_op,'7000');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_sys_employee.next;
|
|
|
end;
|
|
|
finally
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
|
|
|
frm_sys_progress.free;
|
|
|
frm_sys_progress:=nil;
|
|
|
t_sys_open.EnableControls;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_sys_employee);
|
|
|
table_post(t_sys_open);
|
|
|
table_post(fra_sys_data1.t_op);
|
|
|
table_post(fra_sys_data2.t_op);
|
|
|
table_post(fra_sys_data3.t_op);
|
|
|
table_post(fra_sys_data4.t_op);
|
|
|
table_post(fra_sys_data20.t_op);
|
|
|
table_post(fra_sys_data16.t_op);
|
|
|
table_post(fra_sys_data17.t_op);
|
|
|
table_post(fra_sys_data18.t_op);
|
|
|
table_post(fra_sys_data19.t_op);
|
|
|
table_post(fra_sys_data_d5.t_op);
|
|
|
table_post(fra_sys_data_d6.t_op);
|
|
|
table_post(fra_sys_data_d7.t_op);
|
|
|
table_post(fra_sys_data_d8.t_op);
|
|
|
table_post(fra_sys_data_d9.t_op);
|
|
|
table_post(fra_sys_data_d10.t_op);
|
|
|
table_post(fra_sys_data_d11.t_op);
|
|
|
table_post(fra_sys_data_d12.t_op);
|
|
|
table_post(fra_sys_data_v1.t_op);
|
|
|
table_post(fra_sys_data_d13.t_op);
|
|
|
table_post(fra_sys_data_d1.t_op);
|
|
|
table_post(fra_sys_data_v2.t_op);
|
|
|
table_post(fra_sys_data_v3.t_op);
|
|
|
table_post(fra_sys_data_v4.t_op);
|
|
|
table_post(fra_sys_data_v5.t_op);
|
|
|
table_post(fra_sys_data_v6.t_op);
|
|
|
table_post(fra_sys_data_v7.t_op);
|
|
|
table_post(fra_sys_data5.t_op);
|
|
|
table_post(fra_sys_data6.t_op);
|
|
|
table_post(fra_sys_data7.t_op);
|
|
|
table_post(fra_sys_data8.t_op);
|
|
|
table_post(fra_sys_data9.t_op);
|
|
|
table_post(fra_sys_data10.t_op);
|
|
|
table_post(fra_sys_data24.t_op);
|
|
|
table_post(fra_sys_data11.t_op);
|
|
|
table_post(fra_sys_data15.t_op);
|
|
|
table_post(fra_sys_data12.t_op);
|
|
|
table_post(fra_sys_data13.t_op);
|
|
|
table_post(fra_sys_data14.t_op);
|
|
|
table_post(fra_sys_data_v8.t_op);
|
|
|
table_post(fra_sys_data_v9.t_op);
|
|
|
table_post(fra_sys_data_v11.t_op);
|
|
|
table_post(fra_sys_data_v12.t_op);
|
|
|
table_post(fra_sys_data_d14.t_op);
|
|
|
table_post(fra_sys_data21.t_op);
|
|
|
table_post(fra_sys_data22.t_op);
|
|
|
table_post(fra_sys_data23.t_op);
|
|
|
table_post(fra_sys_data25.t_op);
|
|
|
table_post(fra_sys_data27.t_op);
|
|
|
table_post(fra_sys_data28.t_op);
|
|
|
table_post(fra_sys_data30.t_op);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_sys_open);
|
|
|
table_cancel(fra_sys_data1.t_op);
|
|
|
table_cancel(fra_sys_data2.t_op);
|
|
|
table_cancel(fra_sys_data3.t_op);
|
|
|
table_cancel(fra_sys_data4.t_op);
|
|
|
table_cancel(fra_sys_data20.t_op);
|
|
|
table_cancel(fra_sys_data16.t_op);
|
|
|
table_cancel(fra_sys_data17.t_op);
|
|
|
table_cancel(fra_sys_data18.t_op);
|
|
|
table_cancel(fra_sys_data19.t_op);
|
|
|
table_cancel(fra_sys_data_d5.t_op);
|
|
|
table_cancel(fra_sys_data_d6.t_op);
|
|
|
table_cancel(fra_sys_data_d7.t_op);
|
|
|
table_cancel(fra_sys_data_d8.t_op);
|
|
|
table_cancel(fra_sys_data_d9.t_op);
|
|
|
table_cancel(fra_sys_data_d10.t_op);
|
|
|
table_cancel(fra_sys_data_d11.t_op);
|
|
|
table_cancel(fra_sys_data_d12.t_op);
|
|
|
table_cancel(fra_sys_data_v1.t_op);
|
|
|
table_cancel(fra_sys_data_d13.t_op);
|
|
|
table_cancel(fra_sys_data_d1.t_op);
|
|
|
table_cancel(fra_sys_data_v2.t_op);
|
|
|
table_cancel(fra_sys_data_v3.t_op);
|
|
|
table_cancel(fra_sys_data_v4.t_op);
|
|
|
table_cancel(fra_sys_data_v5.t_op);
|
|
|
table_cancel(fra_sys_data_v6.t_op);
|
|
|
table_cancel(fra_sys_data_v7.t_op);
|
|
|
table_cancel(fra_sys_data5.t_op);
|
|
|
table_cancel(fra_sys_data6.t_op);
|
|
|
table_cancel(fra_sys_data7.t_op);
|
|
|
table_cancel(fra_sys_data8.t_op);
|
|
|
table_cancel(fra_sys_data9.t_op);
|
|
|
table_cancel(fra_sys_data10.t_op);
|
|
|
table_cancel(fra_sys_data24.t_op);
|
|
|
table_cancel(fra_sys_data11.t_op);
|
|
|
table_cancel(fra_sys_data15.t_op);
|
|
|
table_cancel(fra_sys_data12.t_op);
|
|
|
table_cancel(fra_sys_data13.t_op);
|
|
|
table_cancel(fra_sys_data14.t_op);
|
|
|
table_cancel(fra_sys_data_v8.t_op);
|
|
|
table_cancel(fra_sys_data_v9.t_op);
|
|
|
table_cancel(fra_sys_data_v11.t_op);
|
|
|
table_cancel(fra_sys_data_v12.t_op);
|
|
|
table_cancel(fra_sys_data_d14.t_op);
|
|
|
table_cancel(fra_sys_data21.t_op);
|
|
|
table_cancel(fra_sys_data22.t_op);
|
|
|
table_cancel(fra_sys_data23.t_op);
|
|
|
table_cancel(fra_sys_data25.t_op);
|
|
|
table_cancel(fra_sys_data27.t_op);
|
|
|
table_cancel(fra_sys_data28.t_op);
|
|
|
table_cancel(fra_sys_data30.t_op);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
if bsSkinButton12.Caption='Ȩ<><C8A8>չ<EFBFBD><D5B9>' then
|
|
|
begin
|
|
|
dxdbgrid2.FullExpand;
|
|
|
bsSkinButton12.Caption:='Ȩ<>ϲ<DEBA>';
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
dxdbgrid2.FullCollapse;
|
|
|
bsSkinButton12.Caption:='Ȩ<><C8A8>չ<EFBFBD><D5B9>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinPanel1Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round((bsSkinPanel1.Width-bsSkinPanel2.Width)/5);
|
|
|
bsSkinButton1.Width:=i;
|
|
|
bsSkinButton10.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton12.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.Label9DblClick(Sender: TObject);
|
|
|
begin
|
|
|
try
|
|
|
if not assigned(frm_sys_limited_group) then
|
|
|
frm_sys_limited_group:=tfrm_sys_limited_group.Create (self);
|
|
|
frm_sys_limited_group.ShowModal;
|
|
|
finally
|
|
|
frm_sys_limited_group.free;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N1Click(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_open.first;
|
|
|
while not t_sys_open.eof do
|
|
|
begin
|
|
|
t_sys_open.edit;
|
|
|
t_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=1;
|
|
|
t_sys_open.post;
|
|
|
t_sys_open.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N3Click(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_open.first;
|
|
|
while not t_sys_open.eof do
|
|
|
begin
|
|
|
t_sys_open.edit;
|
|
|
t_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
|
|
|
t_sys_open.post;
|
|
|
t_sys_open.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
if RxDBLookupCombo2.DisplayValue=''then
|
|
|
begin
|
|
|
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
if t_sys_open.IsEmpty then
|
|
|
begin
|
|
|
showmessage('<27><>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD>û<EFBFBD>и<EFBFBD><D0B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룬<EFBFBD><EBA3AC><EFBFBD>ȸ<EFBFBD><C8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룡<EFBFBD><EBA3A1>');
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
if t_sys_lg.Locate('Ȩ<><C8A8>ģ<EFBFBD><C4A3>',RxDBLookupCombo2.DisplayValue,[])then
|
|
|
begin
|
|
|
try
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=t_sys_lg_open.RecordCount+41*2-1;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
t_sys_open.DisableControls;
|
|
|
t_sys_lg_open.first;
|
|
|
while not t_sys_lg_open.eof do
|
|
|
begin
|
|
|
if t_sys_open.Locate('Ȩ<><EFBFBD><DEB4><EFBFBD>',t_sys_lg_open.fieldbyname('Ȩ<><EFBFBD><DEB4><EFBFBD>').asstring,[])then
|
|
|
begin
|
|
|
t_sys_open.edit;
|
|
|
t_sys_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_lg_open['һ<><D2BB>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_lg_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_lg_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=t_sys_lg_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>'];
|
|
|
t_sys_open.post;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sys_open.insert;
|
|
|
t_sys_open['<27><>Ա']:=t_sys_employee.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
t_sys_open['Ȩ<><EFBFBD><DEB4><EFBFBD>']:=t_sys_lg_open['Ȩ<><EFBFBD><DEB4><EFBFBD>'];
|
|
|
t_sys_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_lg_open['һ<><D2BB>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_lg_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
|
|
|
t_sys_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_lg_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=t_sys_lg_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>'];
|
|
|
t_sys_open.post;
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
t_sys_lg_open.Next;
|
|
|
end;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data1.t_op,'0001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0001',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data1.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data2.t_op,'0002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0002',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data2.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data3.t_op,'0003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0003',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data3.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data4.t_op,'0004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0004',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data4.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data20.t_op,'0005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0005',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data20.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data25.t_op,'0006');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0006',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data25.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data28.t_op,'0008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0008',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data28.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data16.t_op,'0011');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0011',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data16.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data17.t_op,'0012');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0012',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data17.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data18.t_op,'0013');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0013',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data18.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data19.t_op,'0014');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0014',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data19.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data26.t_op,'0016');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0014',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data26.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data27.t_op,'0015');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0015',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data27.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d5.t_op,'1001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1001',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d5.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d6.t_op,'1002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1002',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d6.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d7.t_op,'1003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1003',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d7.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d8.t_op,'1004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1004',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d8.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d9.t_op,'0021');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0021',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d9.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d10.t_op,'0022');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0022',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d10.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d11.t_op,'0023');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0023',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d11.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d12.t_op,'0024');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0024',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d12.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v1.t_op,'0031');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0031',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v1.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d13.t_op,'0032');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0032',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d13.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d1.t_op,'0030');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0030',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d1.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,3);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v2.t_op,'0033');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0033',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v2.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v3.t_op,'0034');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0034',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v3.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v4.t_op,'0035');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0035',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v4.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v5.t_op,'0036');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0036',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v5.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v6.t_op,'0037');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0037',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v6.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v7.t_op,'0038');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0038',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v7.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v10.t_op,'0039');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0039',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v10.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,2);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data5.t_op,'0008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0008',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data5.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data6.t_op,'3001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3001',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data6.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data7.t_op,'3002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3002',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data7.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data8.t_op,'3003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3003',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data8.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data9.t_op,'3004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3004',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data9.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data10.t_op,'3005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3005',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data10.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3006',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data24.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
// frm_sys_limited.update_price(fra_sys_data_price1.t_op,'3006');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data11.t_op,'3007');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3007',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data11.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data15.t_op,'3008');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3008',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data15.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data12.t_op,'8001');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8001',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data12.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data13.t_op,'8002');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8002',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data13.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v8.t_op,'8003');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8003',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v8.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_v9.t_op,'8004');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8004',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v9.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','9002',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v11.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','9001',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_v12.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data14.t_op,'8005');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8005',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data14.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data_d14.t_op,'7000');
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','7000',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data_d14.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data21.t_op,'9003'); //<2F><><EFBFBD><EFBFBD>
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','9003',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data21.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data22.t_op,'9004'); //<2F><><EFBFBD><EFBFBD><EFBFBD>淶
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','9004',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data22.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
frm_sys_limited.update_all(fra_sys_data23.t_op,'9005'); //<2F><><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD>
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
if t_sys_lg_data.locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','9005',[]) then
|
|
|
begin
|
|
|
frm_sys_limited.update_group_data_all(fra_sys_data23.t_op,t_sys_lg_data.fieldbyname('<27><><EFBFBD>ݷ<EFBFBD>Χ').asstring,1);
|
|
|
end;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
|
|
|
finally
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
|
|
|
frm_sys_progress.free;
|
|
|
frm_sys_progress:=nil;
|
|
|
t_sys_open.EnableControls;
|
|
|
end;
|
|
|
end;
|
|
|
t_sys_open_tree.Refresh;
|
|
|
|
|
|
if op_limited and (bsSkinPageControl1.ActivePageIndex<>0) then
|
|
|
begin
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_openBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_sys_open['<27><>Ȩ<EFBFBD><C8A8>']:=employee;
|
|
|
t_sys_open['<27><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>']:=now;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_employeeAfterScroll(DataSet: TDataSet);
|
|
|
begin
|
|
|
if op_limited and (bsSkinPageControl1.ActivePageIndex<>0) then
|
|
|
begin
|
|
|
closealltable;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinPageControl1Change(Sender: TObject);
|
|
|
begin
|
|
|
if op_limited then
|
|
|
begin
|
|
|
closealltable;
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_openAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_sys_open.Refresh;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N7Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_sys_open.GetBookmark ;
|
|
|
with lcxQryTmp,sql do
|
|
|
begin
|
|
|
close ; clear ;
|
|
|
add('update t_sys_code_emp set <20>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>=1,<2C><>Ȩ<EFBFBD><C8A8>=:sqr,<2C><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>=:sqdate ');
|
|
|
add(' where <20><>Ա=:tmpname and һ<><D2BB>ģ<EFBFBD><C4A3>=:tmpfirst ');
|
|
|
parameters.ParamByName('sqr').Value:=employee ;
|
|
|
parameters.ParamByName('sqdate').Value:=now ;
|
|
|
parameters.ParamByName('tmpname').Value:=t_sys_open.fieldbyname('<27><>Ա').value ;
|
|
|
parameters.ParamByName('tmpfirst').Value:=t_sys_open.fieldbyname('һ<><D2BB>ģ<EFBFBD><C4A3>').value ;
|
|
|
execsql ;
|
|
|
end ;
|
|
|
t_sys_open.Requery();
|
|
|
t_sys_open.GotoBookmark(book1);
|
|
|
t_sys_open.FreeBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N8Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_sys_open.GetBookmark ;
|
|
|
with lcxQryTmp,sql do
|
|
|
begin
|
|
|
close ; clear ;
|
|
|
add('update t_sys_code_emp set <20>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>=0 ');
|
|
|
add(' where <20><>Ա=:tmpname and һ<><D2BB>ģ<EFBFBD><C4A3>=:tmpfirst ');
|
|
|
parameters.ParamByName('tmpname').Value:=t_sys_open.fieldbyname('<27><>Ա').value ;
|
|
|
parameters.ParamByName('tmpfirst').Value:=t_sys_open.fieldbyname('һ<><D2BB>ģ<EFBFBD><C4A3>').value ;
|
|
|
execsql ;
|
|
|
end ;
|
|
|
t_sys_open.Requery();
|
|
|
t_sys_open.GotoBookmark(book1);
|
|
|
t_sys_open.FreeBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N9Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_sys_open.GetBookmark ;
|
|
|
with lcxQryTmp,sql do
|
|
|
begin
|
|
|
close ; clear ;
|
|
|
add('update t_sys_code_emp set <20>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>=1,<2C><>Ȩ<EFBFBD><C8A8>=:sqr,<2C><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>=:sqdate ');
|
|
|
add('where <20><>Ա=:tmpname and һ<><D2BB>ģ<EFBFBD><C4A3>=:tmpfirst ');
|
|
|
add('and <20><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>=:tmptwo ');
|
|
|
parameters.ParamByName('sqr').Value:=employee ;
|
|
|
parameters.ParamByName('sqdate').Value:=now ;
|
|
|
parameters.ParamByName('tmpname').Value:=t_sys_open.fieldbyname('<27><>Ա').value ;
|
|
|
parameters.ParamByName('tmpfirst').Value:=t_sys_open.fieldbyname('һ<><D2BB>ģ<EFBFBD><C4A3>').value ;
|
|
|
parameters.ParamByName('tmptwo').Value:=t_sys_open.fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').value ;
|
|
|
execsql ;
|
|
|
end ;
|
|
|
t_sys_open.Requery();
|
|
|
t_sys_open.GotoBookmark(book1);
|
|
|
t_sys_open.FreeBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N10Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_sys_open.GetBookmark ;
|
|
|
with lcxQryTmp,sql do
|
|
|
begin
|
|
|
close ; clear ;
|
|
|
add('update t_sys_code_emp set <20>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>=0 where <20><>Ա=:tmpname and һ<><D2BB>ģ<EFBFBD><C4A3>=:tmpfirst ');
|
|
|
add('and <20><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>=:tmptwo ');
|
|
|
parameters.ParamByName('tmpname').Value:=t_sys_open.fieldbyname('<27><>Ա').value ;
|
|
|
parameters.ParamByName('tmpfirst').Value:=t_sys_open.fieldbyname('һ<><D2BB>ģ<EFBFBD><C4A3>').value ;
|
|
|
parameters.ParamByName('tmptwo').Value:=t_sys_open.fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').value ;
|
|
|
execsql ;
|
|
|
end ;
|
|
|
t_sys_open.Requery();
|
|
|
t_sys_open.GotoBookmark(book1);
|
|
|
t_sys_open.FreeBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.PopupMenu1Popup(Sender: TObject);
|
|
|
begin
|
|
|
FirstModule.Caption:=t_sys_open.fieldbyname('һ<><D2BB>ģ<EFBFBD><C4A3>').Asstring ;
|
|
|
TwoModule.Caption:=t_sys_open.fieldbyname('<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>').Asstring ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
begin
|
|
|
if if_open_limited('020') or if_open_limited('214') then begin
|
|
|
fra_sys_data_v11.Visible:=true;
|
|
|
fra_sys_data_v11.t_op.open;
|
|
|
fra_sys_data_v11.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_v11.Visible:=false;
|
|
|
fra_sys_data_v11.t_op.close;
|
|
|
fra_sys_data_v11.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('019') or if_open_limited('213') then begin
|
|
|
fra_sys_data_v12.Visible:=true;
|
|
|
fra_sys_data_v12.t_op.open;
|
|
|
fra_sys_data_v12.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data_v12.Visible:=false;
|
|
|
fra_sys_data_v12.t_op.close;
|
|
|
fra_sys_data_v12.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
if if_open_limited('348') then begin
|
|
|
fra_sys_data20.Visible:=true;
|
|
|
fra_sys_data20.t_op.open;
|
|
|
fra_sys_data20.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data20.Visible:=false;
|
|
|
fra_sys_data20.t_op.close;
|
|
|
fra_sys_data20.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('319') or if_open_limited('378') or if_open_limited('385') then begin
|
|
|
fra_sys_data25.Visible:=true;
|
|
|
fra_sys_data25.t_op.open;
|
|
|
fra_sys_data25.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data25.Visible:=false;
|
|
|
fra_sys_data25.t_op.close;
|
|
|
fra_sys_data25.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('373') or if_open_limited('374') or if_open_limited('375') or if_open_limited('376') or if_open_limited('377') then begin
|
|
|
fra_sys_data28.Visible:=true;
|
|
|
fra_sys_data28.t_op.open;
|
|
|
fra_sys_data28.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data28.Visible:=false;
|
|
|
fra_sys_data28.t_op.close;
|
|
|
fra_sys_data28.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('322') or if_open_limited('323') then begin
|
|
|
fra_sys_data26.Visible:=true;
|
|
|
fra_sys_data26.t_op.open;
|
|
|
fra_sys_data26.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data26.Visible:=false;
|
|
|
fra_sys_data26.t_op.close;
|
|
|
fra_sys_data26.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if (if_open_limited('239')) and (if_open_limited('241')) then begin //<2F><><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD>
|
|
|
fra_sys_data21.Visible:=true;
|
|
|
fra_sys_data21.t_op.open;
|
|
|
fra_sys_data21.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data21.Visible:=false;
|
|
|
fra_sys_data21.t_op.close;
|
|
|
fra_sys_data21.t_sql.close;
|
|
|
end;
|
|
|
if (if_open_limited('242')) and (if_open_limited('244')) then begin //<2F><><EFBFBD><EFBFBD><EFBFBD>淶
|
|
|
fra_sys_data22.Visible:=true;
|
|
|
fra_sys_data22.t_op.open;
|
|
|
fra_sys_data22.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data22.Visible:=false;
|
|
|
fra_sys_data22.t_op.close;
|
|
|
fra_sys_data22.t_sql.close;
|
|
|
|
|
|
end;
|
|
|
if (if_open_limited('247')) and (if_open_limited('245')) or if_open_limited('305') then begin //<2F><><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD>
|
|
|
fra_sys_data23.Visible:=true;
|
|
|
fra_sys_data23.t_op.open;
|
|
|
fra_sys_data23.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data23.Visible:=false;
|
|
|
fra_sys_data23.t_op.close;
|
|
|
fra_sys_data23.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if if_open_limited('178') then begin
|
|
|
fra_sys_data27.Visible:=true;
|
|
|
fra_sys_data27.t_op.open;
|
|
|
fra_sys_data27.t_sql.open;
|
|
|
end else begin
|
|
|
fra_sys_data27.Visible:=false;
|
|
|
fra_sys_data27.t_op.close;
|
|
|
fra_sys_data27.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinDBCheckRadioBox1Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_sys_employee.State in [dsedit,dsinsert] then t_sys_employee.Post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinDBCheckRadioBox1MouseEnter(
|
|
|
Sender: TObject);
|
|
|
begin
|
|
|
t_sys_employee.Edit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.bsSkinButton3Click(Sender: TObject);
|
|
|
var
|
|
|
aQuery,aQuery2:TADOQuery;
|
|
|
|
|
|
begin
|
|
|
t_sys_code_data.Close;
|
|
|
cpt_sys_code_data.Close;
|
|
|
cpt_sys_code_emp.Close;
|
|
|
// t_sys_code_data.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_sys_employee['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_sys_code_data.Open;
|
|
|
cpt_sys_code_data.Open;
|
|
|
cpt_sys_code_emp.Open;
|
|
|
cpt_sys_code_data.First;
|
|
|
cpt_sys_code_emp.First;
|
|
|
st_sys_open.Open;
|
|
|
|
|
|
t_sys_employee.Edit;
|
|
|
t_sys_employee['Ӧ<><D3A6>']:=frm_data_share.t_sys_employee['Ӧ<><D3A6>'];
|
|
|
t_sys_employee['Ӧ<><D3A6>']:=frm_data_share.t_sys_employee['Ӧ<><D3A6>'];
|
|
|
t_sys_employee['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_sys_employee.Post;
|
|
|
if bsSkinCheckRadioBox1.Checked then begin
|
|
|
st_sys_open.First;
|
|
|
while not st_sys_open.eof do begin
|
|
|
st_sys_open.Edit;
|
|
|
st_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
|
|
|
st_sys_open.Post;
|
|
|
st_sys_open.Next;
|
|
|
end;
|
|
|
end;
|
|
|
st_sys_open.Refresh;
|
|
|
st_sys_open.First;
|
|
|
while not st_sys_open.eof do begin
|
|
|
if cpt_sys_code_emp.Locate('Ȩ<><EFBFBD><DEB4><EFBFBD>',st_sys_open['Ȩ<><EFBFBD><DEB4><EFBFBD>'],[]) then begin
|
|
|
if cpt_sys_code_emp['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>'] then begin
|
|
|
st_sys_open.Edit;
|
|
|
st_sys_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=1;
|
|
|
st_sys_open.Post;
|
|
|
end;
|
|
|
end;
|
|
|
st_sys_open.Next;
|
|
|
end;
|
|
|
|
|
|
if bsSkinCheckRadioBox1.Checked then begin
|
|
|
t_sys_code_data.First;
|
|
|
while not t_sys_code_data.eof do begin
|
|
|
if (t_sys_code_data['ְԱ']=t_sys_employee['<27><><EFBFBD><EFBFBD>']) then begin
|
|
|
t_sys_code_data.Edit;
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=1;
|
|
|
t_sys_code_data.Post;
|
|
|
end else begin
|
|
|
t_sys_code_data.Edit;
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
|
|
|
t_sys_code_data.Post;
|
|
|
end;
|
|
|
t_sys_code_data.Next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
cpt_sys_code_data.First;
|
|
|
while not cpt_sys_code_data.eof do begin
|
|
|
if cpt_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>'] or cpt_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>'] then begin
|
|
|
if t_sys_code_data.Locate('<27><><EFBFBD><EFBFBD>;ְԱ',VarArrayOf([cpt_sys_code_data['<27><><EFBFBD><EFBFBD>'],cpt_sys_code_data['ְԱ']]),[]) then begin
|
|
|
t_sys_code_data.Edit;
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=cpt_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=cpt_sys_code_data['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>'];
|
|
|
t_sys_code_data.Post;
|
|
|
end;
|
|
|
end;
|
|
|
cpt_sys_code_data.next;
|
|
|
end;
|
|
|
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
SQL.Add('delete from t_sys_code_sql where <20><>Ա='''+t_sys_employee['<27><><EFBFBD><EFBFBD>']+'''');
|
|
|
ExecSQL;
|
|
|
sql.Clear;
|
|
|
SQL.Add('insert t_sys_code_sql(<28><>Ա,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ӷ<EFBFBD>Χ)');
|
|
|
SQL.Add('select '''+t_sys_employee['<27><><EFBFBD><EFBFBD>']+''',<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD>ӷ<EFBFBD>Χ from t_sys_code_sql where <20><>Ա='''+frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD>']+'''');
|
|
|
ExecSQL;
|
|
|
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
t_sys_open_tree.Refresh;
|
|
|
|
|
|
if op_limited and (bsSkinPageControl1.ActivePageIndex<>0) then
|
|
|
begin
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
ShowMessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_lg_dataAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_sys_lg_data.Refresh;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.dxDBTreeView1Change(Sender: TObject;
|
|
|
Node: TTreeNode);
|
|
|
var
|
|
|
str:string;
|
|
|
begin
|
|
|
if t_sys_open_tree.State in [dsedit] then t_sys_open_tree.post;
|
|
|
if showing then
|
|
|
if dxDBTreeView1.Selected.HasChildren then
|
|
|
begin
|
|
|
str:=getQuan(qrymodule.fieldbyname('fmoduleid').asinteger);
|
|
|
if str='' then str:='Ȩ<><EFBFBD><DEB4><EFBFBD>=''111111''';
|
|
|
t_sys_open_tree.Filtered:=false;
|
|
|
t_sys_open_tree.Filter:=str;
|
|
|
t_sys_open_tree.Filtered:=true;
|
|
|
// ListView1.Items.Clear ;
|
|
|
// addlv(qrymodule.fieldbyname('fmoduleid').asinteger);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_sys_open_tree.Filtered:=false;
|
|
|
t_sys_open_tree.Filter:='Ȩ<><EFBFBD><DEB4><EFBFBD>='+''''+qrymodule.fieldbyname('Ȩ<><EFBFBD><DEB4><EFBFBD>').asstring+'''';
|
|
|
t_sys_open_tree.Filtered:=true;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_open_treeBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_sys_open_tree['<27><>Ȩ<EFBFBD><C8A8>']:=employee;
|
|
|
t_sys_open_tree['<27><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>']:=now;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_open_treeAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_sys_open_tree.Refresh;
|
|
|
t_sys_open.Requery;
|
|
|
if op_limited and (bsSkinPageControl1.ActivePageIndex<>0) then
|
|
|
begin
|
|
|
if bsSkinTabSheet2.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet2;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet3.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet3;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet4.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet4;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet5.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet5;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet6.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet6;
|
|
|
exit;
|
|
|
end;
|
|
|
if bsSkinTabSheet7.Showing then
|
|
|
begin
|
|
|
frm_sys_limited.enable_bsSkinTabSheet7;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_sys_limited.getQuan(fid: integer): String;
|
|
|
var
|
|
|
aQuery:TAdoQuery;
|
|
|
str:string;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select * from t_sys_module where PID='+inttostr(fid));
|
|
|
SQL.Add(' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ϸ=1');
|
|
|
Open;
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
if fieldByName('Ȩ<><EFBFBD><DEB4><EFBFBD>').AsString<>'' then begin
|
|
|
if result='' then
|
|
|
result:='Ȩ<><EFBFBD><DEB4><EFBFBD>='+''''+fieldByName('Ȩ<><EFBFBD><DEB4><EFBFBD>').AsString+''''
|
|
|
else
|
|
|
result:=result+'or Ȩ<><EFBFBD><DEB4><EFBFBD>='+''''+fieldByName('Ȩ<><EFBFBD><DEB4><EFBFBD>').AsString+''''
|
|
|
end;
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('select * from t_sys_module where PID='+inttostr(fid));
|
|
|
SQL.Add(' and <20>Ƿ<EFBFBD><C7B7><EFBFBD>ϸ<>1');
|
|
|
Open;
|
|
|
first;
|
|
|
while not eof do begin
|
|
|
str:=getQuan(FieldByName('fmoduleid').AsInteger);
|
|
|
if str<>'' then begin
|
|
|
if result='' then
|
|
|
result:=str
|
|
|
else begin
|
|
|
result:=result+' or '+str;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
aQuery.Next;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.closealltable;
|
|
|
begin
|
|
|
if fra_sys_data1.t_op.active then begin
|
|
|
table_post(fra_sys_data1.t_op);
|
|
|
fra_sys_data1.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data1.t_sql.active then begin
|
|
|
table_post(fra_sys_data1.t_sql);
|
|
|
fra_sys_data1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data2.t_op.active then begin
|
|
|
table_post(fra_sys_data2.t_op);
|
|
|
fra_sys_data2.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data2.t_sql.active then begin
|
|
|
table_post(fra_sys_data2.t_sql);
|
|
|
fra_sys_data2.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data3.t_op.active then begin
|
|
|
table_post(fra_sys_data3.t_op);
|
|
|
fra_sys_data3.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data3.t_sql.active then begin
|
|
|
table_post(fra_sys_data3.t_sql);
|
|
|
fra_sys_data3.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data4.t_op.active then begin
|
|
|
table_post(fra_sys_data4.t_op);
|
|
|
fra_sys_data4.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data4.t_sql.active then begin
|
|
|
table_post(fra_sys_data4.t_sql);
|
|
|
fra_sys_data4.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data20.t_op.active then begin
|
|
|
table_post(fra_sys_data20.t_op);
|
|
|
fra_sys_data20.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data20.t_sql.active then begin
|
|
|
table_post(fra_sys_data20.t_sql);
|
|
|
fra_sys_data20.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data25.t_op.active then begin
|
|
|
table_post(fra_sys_data25.t_op);
|
|
|
fra_sys_data25.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data25.t_sql.active then begin
|
|
|
table_post(fra_sys_data25.t_sql);
|
|
|
fra_sys_data25.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data28.t_op.active then begin
|
|
|
table_post(fra_sys_data28.t_op);
|
|
|
fra_sys_data28.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data28.t_sql.active then begin
|
|
|
table_post(fra_sys_data28.t_sql);
|
|
|
fra_sys_data28.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data26.t_op.active then begin
|
|
|
table_post(fra_sys_data26.t_op);
|
|
|
fra_sys_data26.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data26.t_sql.active then begin
|
|
|
table_post(fra_sys_data26.t_sql);
|
|
|
fra_sys_data26.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data27.t_op.active then begin
|
|
|
table_post(fra_sys_data27.t_op);
|
|
|
fra_sys_data27.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data2.t_sql.active then begin
|
|
|
table_post(fra_sys_data2.t_sql);
|
|
|
fra_sys_data2.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if fra_sys_data16.t_op.active then begin
|
|
|
table_post(fra_sys_data16.t_op);
|
|
|
fra_sys_data16.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data16.t_sql.active then begin
|
|
|
table_post(fra_sys_data16.t_sql);
|
|
|
fra_sys_data16.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data17.t_op.active then begin
|
|
|
table_post(fra_sys_data17.t_op);
|
|
|
fra_sys_data17.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data17.t_sql.active then begin
|
|
|
table_post(fra_sys_data17.t_sql);
|
|
|
fra_sys_data17.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data18.t_op.active then begin
|
|
|
table_post(fra_sys_data18.t_op);
|
|
|
fra_sys_data18.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data18.t_sql.active then begin
|
|
|
table_post(fra_sys_data18.t_sql);
|
|
|
fra_sys_data18.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data19.t_op.active then begin
|
|
|
table_post(fra_sys_data19.t_op);
|
|
|
fra_sys_data19.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data19.t_sql.active then begin
|
|
|
table_post(fra_sys_data19.t_sql);
|
|
|
fra_sys_data19.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_d5.t_op.active then begin
|
|
|
table_post(fra_sys_data_d5.t_op);
|
|
|
fra_sys_data_d5.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d5.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d5.t_sql);
|
|
|
fra_sys_data_d5.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d6.t_op.active then begin
|
|
|
table_post(fra_sys_data_d6.t_op);
|
|
|
fra_sys_data_d6.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d6.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d6.t_sql);
|
|
|
fra_sys_data_d6.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d7.t_op.active then begin
|
|
|
table_post(fra_sys_data_d7.t_op);
|
|
|
fra_sys_data_d7.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d7.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d7.t_sql);
|
|
|
fra_sys_data_d7.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_d8.t_op.active then begin
|
|
|
table_post(fra_sys_data_d8.t_op);
|
|
|
fra_sys_data_d8.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d8.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d8.t_sql);
|
|
|
fra_sys_data_d8.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d9.t_op.active then begin
|
|
|
table_post(fra_sys_data_d9.t_op);
|
|
|
fra_sys_data_d9.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d9.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d9.t_sql);
|
|
|
fra_sys_data_d9.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_d10.t_op.active then begin
|
|
|
table_post(fra_sys_data_d10.t_op);
|
|
|
fra_sys_data_d10.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d10.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d10.t_sql);
|
|
|
fra_sys_data_d10.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d11.t_op.active then begin
|
|
|
table_post(fra_sys_data_d11.t_op);
|
|
|
fra_sys_data_d11.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d11.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d11.t_sql);
|
|
|
fra_sys_data_d11.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d12.t_op.active then begin
|
|
|
table_post(fra_sys_data_d12.t_op);
|
|
|
fra_sys_data_d12.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d12.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d12.t_sql);
|
|
|
fra_sys_data_d12.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_d13.t_op.active then begin
|
|
|
table_post(fra_sys_data_d13.t_op);
|
|
|
fra_sys_data_d13.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d13.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d13.t_sql);
|
|
|
fra_sys_data_d13.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_d1.t_op.active then begin
|
|
|
table_post(fra_sys_data_d1.t_op);
|
|
|
fra_sys_data_d1.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d1.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d1.t_sql);
|
|
|
fra_sys_data_d1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_d14.t_op.active then begin
|
|
|
table_post(fra_sys_data_d14.t_op);
|
|
|
fra_sys_data_d14.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_d14.t_sql.active then begin
|
|
|
table_post(fra_sys_data_d14.t_sql);
|
|
|
fra_sys_data_d14.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v1.t_op.active then begin
|
|
|
table_post(fra_sys_data_v1.t_op);
|
|
|
fra_sys_data_v1.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v1.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v1.t_sql);
|
|
|
fra_sys_data_v1.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v2.t_op.active then begin
|
|
|
table_post(fra_sys_data_v2.t_op);
|
|
|
fra_sys_data_v2.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v2.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v2.t_sql);
|
|
|
fra_sys_data_v2.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v3.t_op.active then begin
|
|
|
table_post(fra_sys_data_v3.t_op);
|
|
|
fra_sys_data_v3.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v3.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v3.t_sql);
|
|
|
fra_sys_data_v3.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_v4.t_op.active then begin
|
|
|
table_post(fra_sys_data_v4.t_op);
|
|
|
fra_sys_data_v4.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v4.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v4.t_sql);
|
|
|
fra_sys_data_v4.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_v5.t_op.active then begin
|
|
|
table_post(fra_sys_data_v5.t_op);
|
|
|
fra_sys_data_v5.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v5.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v5.t_sql);
|
|
|
fra_sys_data_v5.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_v6.t_op.active then begin
|
|
|
table_post(fra_sys_data_v6.t_op);
|
|
|
fra_sys_data_v6.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v6.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v6.t_sql);
|
|
|
fra_sys_data_v6.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data_v7.t_op.active then begin
|
|
|
table_post(fra_sys_data_v7.t_op);
|
|
|
fra_sys_data_v7.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v7.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v7.t_sql);
|
|
|
fra_sys_data_v7.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v8.t_op.active then begin
|
|
|
table_post(fra_sys_data_v8.t_op);
|
|
|
fra_sys_data_v8.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v8.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v8.t_sql);
|
|
|
fra_sys_data_v8.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v9.t_op.active then begin
|
|
|
table_post(fra_sys_data_v9.t_op);
|
|
|
fra_sys_data_v9.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v9.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v9.t_sql);
|
|
|
fra_sys_data_v9.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
if fra_sys_data_v10.t_op.active then begin
|
|
|
table_post(fra_sys_data_v10.t_op);
|
|
|
fra_sys_data_v10.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v10.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v10.t_sql);
|
|
|
fra_sys_data_v10.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v11.t_op.active then begin
|
|
|
table_post(fra_sys_data_v11.t_op);
|
|
|
fra_sys_data_v11.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v11.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v11.t_sql);
|
|
|
fra_sys_data_v11.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data_v12.t_op.active then begin
|
|
|
table_post(fra_sys_data_v12.t_op);
|
|
|
fra_sys_data_v12.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data_v12.t_sql.active then begin
|
|
|
table_post(fra_sys_data_v12.t_sql);
|
|
|
fra_sys_data_v12.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data21.t_op.active then begin
|
|
|
table_post(fra_sys_data21.t_op);
|
|
|
fra_sys_data21.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data21.t_sql.active then begin
|
|
|
table_post(fra_sys_data21.t_sql);
|
|
|
fra_sys_data21.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data22.t_op.active then begin
|
|
|
table_post(fra_sys_data22.t_op);
|
|
|
fra_sys_data22.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data22.t_sql.active then begin
|
|
|
table_post(fra_sys_data22.t_sql);
|
|
|
fra_sys_data22.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data23.t_op.active then begin
|
|
|
table_post(fra_sys_data23.t_op);
|
|
|
fra_sys_data23.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data23.t_sql.active then begin
|
|
|
table_post(fra_sys_data23.t_sql);
|
|
|
fra_sys_data23.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data5.t_op.active then begin
|
|
|
table_post(fra_sys_data5.t_op);
|
|
|
fra_sys_data5.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data5.t_sql.active then begin
|
|
|
table_post(fra_sys_data5.t_sql);
|
|
|
fra_sys_data5.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data12.t_op.active then begin
|
|
|
table_post(fra_sys_data12.t_op);
|
|
|
fra_sys_data12.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data12.t_sql.active then begin
|
|
|
table_post(fra_sys_data12.t_sql);
|
|
|
fra_sys_data12.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data13.t_op.active then begin
|
|
|
table_post(fra_sys_data13.t_op);
|
|
|
fra_sys_data13.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data13.t_sql.active then begin
|
|
|
table_post(fra_sys_data13.t_sql);
|
|
|
fra_sys_data13.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data6.t_op.active then begin
|
|
|
table_post(fra_sys_data6.t_op);
|
|
|
fra_sys_data6.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data6.t_sql.active then begin
|
|
|
table_post(fra_sys_data6.t_sql);
|
|
|
fra_sys_data6.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data7.t_op.active then begin
|
|
|
table_post(fra_sys_data7.t_op);
|
|
|
fra_sys_data7.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data7.t_sql.active then begin
|
|
|
table_post(fra_sys_data7.t_sql);
|
|
|
fra_sys_data7.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data8.t_op.active then begin
|
|
|
table_post(fra_sys_data8.t_op);
|
|
|
fra_sys_data8.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data8.t_sql.active then begin
|
|
|
table_post(fra_sys_data8.t_sql);
|
|
|
fra_sys_data8.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data9.t_op.active then begin
|
|
|
table_post(fra_sys_data9.t_op);
|
|
|
fra_sys_data9.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data9.t_sql.active then begin
|
|
|
table_post(fra_sys_data9.t_sql);
|
|
|
fra_sys_data9.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data10.t_op.active then begin
|
|
|
table_post(fra_sys_data10.t_op);
|
|
|
fra_sys_data10.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data10.t_sql.active then begin
|
|
|
table_post(fra_sys_data10.t_sql);
|
|
|
fra_sys_data10.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data11.t_op.active then begin
|
|
|
table_post(fra_sys_data11.t_op);
|
|
|
fra_sys_data11.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data11.t_sql.active then begin
|
|
|
table_post(fra_sys_data11.t_sql);
|
|
|
fra_sys_data11.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data15.t_op.active then begin
|
|
|
table_post(fra_sys_data15.t_op);
|
|
|
fra_sys_data15.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data15.t_sql.active then begin
|
|
|
table_post(fra_sys_data15.t_sql);
|
|
|
fra_sys_data15.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
if fra_sys_data24.t_op.active then begin
|
|
|
table_post(fra_sys_data24.t_op);
|
|
|
fra_sys_data24.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data24.t_sql.active then begin
|
|
|
table_post(fra_sys_data24.t_sql);
|
|
|
fra_sys_data24.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
if fra_sys_data14.t_op.active then begin
|
|
|
table_post(fra_sys_data14.t_op);
|
|
|
fra_sys_data14.t_op.close;
|
|
|
end;
|
|
|
if fra_sys_data14.t_sql.active then begin
|
|
|
table_post(fra_sys_data14.t_sql);
|
|
|
fra_sys_data14.t_sql.close;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.t_sys_employeeBeforeScroll(DataSet: TDataSet);
|
|
|
begin
|
|
|
if bsSkinPageControl1.ActivePageIndex<>0 then
|
|
|
bsSkinPageControl1.ActivePageIndex:=0;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N6Click(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_open_tree.first;
|
|
|
while not t_sys_open_tree.eof do
|
|
|
begin
|
|
|
t_sys_open_tree.edit;
|
|
|
t_sys_open_tree['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=1;
|
|
|
t_sys_open_tree.post;
|
|
|
t_sys_open_tree.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_sys_limited.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_open_tree.first;
|
|
|
while not t_sys_open_tree.eof do
|
|
|
begin
|
|
|
t_sys_open_tree.edit;
|
|
|
t_sys_open_tree['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
|
|
|
t_sys_open_tree.post;
|
|
|
t_sys_open_tree.next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end.
|