hanxuntao
/
D6HECHUAN
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 '4e4df949a6'
${ noResults }
D6HECHUAN/新建文件夹/公用模块/系统模块/u_sys_limited_group.pas

667 lines
22 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

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.
Reference in New Issue View Git Blame Copy Permalink