hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DS6JIEFENG/公用模块/系统模块/u_sys_limited_group.pas

667 lines
22 KiB
Plaintext
Raw Permalink Normal View History Unescape Escape

1
11 months ago
unit u_sys_limited_group;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
ExtCtrls, bsSkinCtrls, dxDBTLCl, dxGrClms, XPMenu, Menus, Grids, DBGridEh;
type
Tfrm_sys_limited_group = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
Panel1: TPanel;
Panel2: TPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridCheckColumn;
XPMenu1: TXPMenu;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
PopupMenu2: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
DBGridEh1: TDBGridEh;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_sys_limited_group: Tfrm_sys_limited_group;
implementation
uses u_sys_limited, my_sys_function, u_sys_progress;
{$R *.dfm}
procedure Tfrm_sys_limited_group.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_sys_limited_group.bsSkinButton4Click(Sender: TObject);
begin
table_delete(frm_sys_limited.t_sys_lg);
end;
procedure Tfrm_sys_limited_group.bsSkinButton1Click(Sender: TObject);
begin
table_post(frm_sys_limited.t_sys_lg);
table_post(frm_sys_limited.t_sys_lg_open);
table_post(frm_sys_limited.t_sys_lg_data);
end;
procedure Tfrm_sys_limited_group.bsSkinButton2Click(Sender: TObject);
begin
table_cancel(frm_sys_limited.t_sys_lg);
table_cancel(frm_sys_limited.t_sys_lg_open);
table_cancel(frm_sys_limited.t_sys_lg_data)
end;
procedure Tfrm_sys_limited_group.bsSkinButton9Click(Sender: TObject);
begin
frm_sys_limited.t_sys_lg.insert;
end;
procedure Tfrm_sys_limited_group.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_group.bsSkinButton10Click(Sender: TObject);
begin
try
with frm_sys_limited do
begin
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_code.RecordCount+40);
frm_sys_progress.bsSkinGauge1.MinValue:=0;
frm_sys_progress.bsSkinGauge1.Value:=0;
frm_sys_progress.Update;
t_sys_code.first;
while not t_sys_code.eof do
begin
if t_sys_lg_open.Locate('Ȩ<>޴<EFBFBD><DEB4><EFBFBD>',t_sys_code['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>'],[])then
begin
t_sys_lg_open.edit;
t_sys_lg_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
t_sys_lg_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
t_sys_lg_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_sys_lg_open.post;
end
else
begin
t_sys_lg_open.insert;
t_sys_lg_open['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_open['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>']:=t_sys_code['Ȩ<>޴<EFBFBD><DEB4><EFBFBD>'];
t_sys_lg_open['һ<><D2BB>ģ<EFBFBD><C4A3>']:=t_sys_code['һ<><D2BB>ģ<EFBFBD><C4A3>'];
t_sys_lg_open['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>']:=t_sys_code['<27><><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>'];
t_sys_lg_open['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_code['Ȩ<><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
t_sys_lg_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
t_sys_lg_open.post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
t_sys_code.next;
end;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0001',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3>ڲ<EFBFBD><DAB2><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0001';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0002',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD>ڲ<EFBFBD><DAB2><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0002';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0003',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3>ڲ<EFBFBD><DAB2><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0003';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0004',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD>ڲ<EFBFBD><DAB2><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0004';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0011',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0011';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0012',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0012';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0013',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0013';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0014',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0014';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1001',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='1001';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1002',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD>뷢Ʊ';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='1002';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1003',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='1003';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','1004',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='1004';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0021',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0021';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0022',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0022';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0023',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0023';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0024',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0024';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0031',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>̨<EFBFBD><CCA8>ͳ<EFBFBD><CDB3>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0031';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0032',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0032';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0033',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='Ƿ<><C7B7>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0033';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0034',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0034';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0035',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ҵ<><D2B5><EFBFBD><EFBFBD>Ʊͳ<C6B1><CDB3>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0035';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0036',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>ʽ<EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0036';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0037',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ҵ<><D2B5>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0037';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0038',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ҵ<><D2B5><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0038';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0039',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>ͳ<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0039';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0008',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ۿͻ<DBBF><CDBB><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0008';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3001',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>˼۹<CBBC><DBB9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3001';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3002',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>˼ۺ<CBBC>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3002';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3003',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>ͻ<EFBFBD><CDBB><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3003';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3004',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='ͬ<><CDAC><EFBFBD>˼۹<CBBC><DBB9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3004';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3005',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>̻<EFBFBD><CCBB><EFBFBD><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3005';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','0008',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ۿͻ<DBBF><CDBB><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0008';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3007',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27>˼۷<CBBC><DBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3007';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','3008',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>˼۹<CBBC><DBB9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='3008';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8001',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='8001';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8002',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>й<EFBFBD><D0B9><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='8002';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8003',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='8003';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8004',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ʧ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='8004';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','8005',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='8005';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
if not t_sys_lg_data.Locate('ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','7000',[])then
begin
t_sys_lg_data.insert;
t_sys_lg_data['LG_ID']:=t_sys_lg['LG_ID'];
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD><EFBFBD>޸ķ<DEB8>Χ';
t_sys_lg_data['ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='7000';
t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
t_sys_lg_data.Post;
end;
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
end;
finally
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.MaxValue;
frm_sys_progress.free;
frm_sys_progress:=nil;
end;
end;
procedure Tfrm_sys_limited_group.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_sys_limited_group:=nil;
end;
procedure Tfrm_sys_limited_group.FormShow(Sender: TObject);
begin
dxDBGrid2.FullExpand;
end;
procedure Tfrm_sys_limited_group.N1Click(Sender: TObject);
begin
with frm_sys_limited do
begin
t_sys_lg_open.first;
while not t_sys_lg_open.eof do
begin
t_sys_lg_open.edit;
t_sys_lg_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=1;
t_sys_lg_open.post;
t_sys_lg_open.next;
end;
end;
end;
procedure Tfrm_sys_limited_group.N3Click(Sender: TObject);
begin
with frm_sys_limited do
begin
t_sys_lg_open.first;
while not t_sys_lg_open.eof do
begin
t_sys_lg_open.edit;
t_sys_lg_open['<27>Ƿ<EFBFBD><C7B7>ɲ<EFBFBD><C9B2><EFBFBD>']:=0;
t_sys_lg_open.post;
t_sys_lg_open.next;
end;
end;
end;
procedure Tfrm_sys_limited_group.N4Click(Sender: TObject);
begin
frm_sys_limited.t_sys_lg_data.first;
while not frm_sys_limited.t_sys_lg_data.eof do
begin
frm_sys_limited.t_sys_lg_data.edit;
frm_sys_limited.t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_sys_limited.t_sys_lg_data.post;
frm_sys_limited.t_sys_lg_data.next;
end;
end;
procedure Tfrm_sys_limited_group.N6Click(Sender: TObject);
begin
frm_sys_limited.t_sys_lg_data.first;
while not frm_sys_limited.t_sys_lg_data.eof do
begin
frm_sys_limited.t_sys_lg_data.edit;
frm_sys_limited.t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_sys_limited.t_sys_lg_data.post;
frm_sys_limited.t_sys_lg_data.next;
end;
end;
procedure Tfrm_sys_limited_group.N8Click(Sender: TObject);
begin
frm_sys_limited.t_sys_lg_data.first;
while not frm_sys_limited.t_sys_lg_data.eof do
begin
frm_sys_limited.t_sys_lg_data.edit;
frm_sys_limited.t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='ȫ<><C8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_sys_limited.t_sys_lg_data.post;
frm_sys_limited.t_sys_lg_data.next;
end;
end;
procedure Tfrm_sys_limited_group.N10Click(Sender: TObject);
begin
frm_sys_limited.t_sys_lg_data.first;
while not frm_sys_limited.t_sys_lg_data.eof do
begin
frm_sys_limited.t_sys_lg_data.edit;
frm_sys_limited.t_sys_lg_data['<27><><EFBFBD>ݷ<EFBFBD>Χ']:='û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_sys_limited.t_sys_lg_data.post;
frm_sys_limited.t_sys_lg_data.next;
end;
end;
end.