?? cjiang.~pas
字號:
if Copy(Fields[1].AsString,1,1)='A' then
begin
GL0:=GL0+1;
end
else if Copy(Fields[1].AsString,1,1)='B' then
begin
CY0:=CY0+1;
end
else if Copy(Fields[1].AsString,1,1)='C' then
begin
CX0:=CX0+1;
end
else if Copy(Fields[1].AsString,1,1)='D' then
begin
DD0:=DD0+1;
end
else if Copy(Fields[1].AsString,1,1)='E' then
begin
ZL0:=ZL0+1;
end
else if Copy(Fields[1].AsString,1,1)='G' then
begin
LD0:=LD0+1;
end
else if Copy(Fields[1].AsString,1,1)='F' then
begin
SJ0:=SJ0+1;
end;
begin
str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
Label4.Caption:=Inttostr(x)+' '+str1;
Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
ListBox2.Items.Add(Str1);
X:=x-1;
with aqWork do
begin
Close;
sql.Clear;
sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
parameters.ParamByName('grade').Value:=gra;
parameters.ParamByName('ser_no').Value:=i;
Execsql;
end;
with atWork do
begin
TableName:='Luckly';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
with atWork do
begin
TableName:='ALuck';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
if x=0 then
break;
end;
end;
inc(Y);
end;
end
else if (gra>3) and (gra<6) then
begin
y:=1;
while y<=2000 do
begin
with aqprt do
begin
close;
sql.Clear;
sql.Add('select * from staffer where grade>=4 and grade<=5');
Open;
end;
if aqprt.RecordCount>=7 then
begin
showmessage('得獎人數已經滿了');
exit;
end;
Randomize;
ZhongJiang;
n:=ListBox3.Items.Count;
Application.ProcessMessages;
PDelay(Time);
i:=StrToInt(ListBox3.Items[Random(n)]);
with aqZj do
begin
Close;
sql.Clear;
sql.Add('select * from staffer where ser_no=:ser_no');
parameters.ParamByName('ser_no').Value:=i;
Open;
F_ser:=Fields[0].AsString;
F_code:=Fields[1].AsString;
F_name:=Fields[2].AsString;
F_pname:=Fields[3].AsString;
if Copy(Fields[1].AsString,1,1)='A' then
begin
GL:=GL+1;
end
else if Copy(Fields[1].AsString,1,1)='B' then
begin
CY:=CY+1;
end
else if Copy(Fields[1].AsString,1,1)='C' then
begin
CX:=CX+1;
end
else if Copy(Fields[1].AsString,1,1)='D' then
begin
DD:=DD+1;
end
else if Copy(Fields[1].AsString,1,1)='E' then
begin
ZL:=ZL+1;
end
else if Copy(Fields[1].AsString,1,1)='G' then
begin
LD:=LD+1;
end
else if Copy(Fields[1].AsString,1,1)='F' then
begin
SJ:=SJ+1;
end;
begin
str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
Label4.Caption:=Inttostr(x)+' '+str1;
Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
ListBox2.Items.Add(Str1);
X:=x-1;
with aqWork do
begin
Close;
sql.Clear;
sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
parameters.ParamByName('grade').Value:=gra;
parameters.ParamByName('ser_no').Value:=i;
Execsql;
end;
with atWork do
begin
TableName:='Luckly';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
with atWork do
begin
TableName:='ALuck';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
if x=0 then
break;
end;
end;
inc(Y);
end;
end
else if gra=1 then
begin
y:=1;
while y<=2000 do
begin
with aqprt do
begin
close;
sql.Clear;
sql.Add('select * from staffer where grade=1');
Open;
end;
if aqprt.RecordCount>=150 then
begin
showmessage('得獎人數已經滿了');
exit;
end;
Randomize;
ZhongJiang;
n:=ListBox3.Items.Count;
Application.ProcessMessages;
PDelay(Time);
i:=StrToInt(ListBox3.Items[Random(n)]);
with aqZj do
begin
Close;
sql.Clear;
sql.Add('select * from staffer where ser_no=:ser_no');
parameters.ParamByName('ser_no').Value:=i;
Open;
F_ser:=Fields[0].AsString;
F_code:=Fields[1].AsString;
F_name:=Fields[2].AsString;
F_pname:=Fields[3].AsString;
if Copy(Fields[1].AsString,1,1)='A' then
begin
GL3:=GL3+1;
end
else if Copy(Fields[1].AsString,1,1)='B' then
begin
CY3:=CY3+1;
end
else if Copy(Fields[1].AsString,1,1)='C' then
begin
CX3:=CX3+1;
end
else if Copy(Fields[1].AsString,1,1)='D' then
begin
DD3:=DD3+1;
end
else if Copy(Fields[1].AsString,1,1)='E' then
begin
ZL3:=ZL3+1;
end
else if Copy(Fields[1].AsString,1,1)='G' then
begin
LD3:=LD3+1;
end
else if Copy(Fields[1].AsString,1,1)='F' then
begin
SJ3:=SJ3+1;
end;
begin
str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
Label4.Caption:=Inttostr(x)+' '+str1;
Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
ListBox2.Items.Add(Str1);
X:=x-1;
with aqWork do
begin
Close;
sql.Clear;
sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
parameters.ParamByName('grade').Value:=gra;
parameters.ParamByName('ser_no').Value:=i;
Execsql;
end;
with atWork do
begin
TableName:='Luckly';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
with atWork do
begin
TableName:='ALuck';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
if x=0 then
break;
end;
end;
inc(Y);
end;
end
else if gra=2 then
begin
y:=1;
while y<=2000 do
begin
with aqprt do
begin
close;
sql.Clear;
sql.Add('select * from staffer where grade=2');
Open;
end;
if aqprt.RecordCount>=50 then
begin
showmessage('得獎人數已經滿了');
exit;
end;
Randomize;
ZhongJiang;
n:=ListBox3.Items.Count;
Application.ProcessMessages;
PDelay(Time);
i:=StrToInt(ListBox3.Items[Random(n)]);
with aqZj do
begin
Close;
sql.Clear;
sql.Add('select * from staffer where ser_no=:ser_no');
parameters.ParamByName('ser_no').Value:=i;
Open;
F_ser:=Fields[0].AsString;
F_code:=Fields[1].AsString;
F_name:=Fields[2].AsString;
F_pname:=Fields[3].AsString;
if Copy(Fields[1].AsString,1,1)='A' then
begin
GL2:=GL2+1;
end
else if Copy(Fields[1].AsString,1,1)='B' then
begin
CY2:=CY2+1;
end
else if Copy(Fields[1].AsString,1,1)='C' then
begin
CX2:=CX2+1;
end
else if Copy(Fields[1].AsString,1,1)='D' then
begin
DD2:=DD2+1;
end
else if Copy(Fields[1].AsString,1,1)='E' then
begin
ZL2:=ZL2+1;
end
else if Copy(Fields[1].AsString,1,1)='G' then
begin
LD2:=LD2+1;
end
else if Copy(Fields[1].AsString,1,1)='F' then
begin
SJ2:=SJ2+1;
end;
begin
str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
Label4.Caption:=Inttostr(x)+' '+str1;
Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
ListBox2.Items.Add(Str1);
X:=x-1;
with aqWork do
begin
Close;
sql.Clear;
sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
parameters.ParamByName('grade').Value:=gra;
parameters.ParamByName('ser_no').Value:=i;
Execsql;
end;
with atWork do
begin
TableName:='Luckly';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
with atWork do
begin
TableName:='ALuck';
Open;
atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
Close;
end;
if x=0 then
break;
end;
end;
inc(Y);
end;
end
else if gra=3 then
begin
y:=1;
while y<=2000 do
begin
with aqprt do
begin
close;
sql.Clear;
sql.Add('select * from staffer where grade=3');
Open;
end;
if aqprt.RecordCount>=30 then
begin
showmessage('得獎人數已經滿了');
exit;
end;
Randomize;
ZhongJiang;
n:=ListBox3.Items.Count;
Application.ProcessMessages;
PDelay(Time);
i:=StrToInt(ListBox3.Items[Random(n)]);
with aqZj do
begin
Close;
sql.Clear;
sql.Add('select * from staffer where ser_no=:ser_no');
parameters.ParamByName('ser_no').Value:=i;
Open;
F_ser:=Fields[0].AsString;
F_code:=Fields[1].AsString;
F_name:=Fields[2].AsString;
F_pname:=Fields[3].AsString;
if Copy(Fields[1].AsString,1,1)='A' then
begin
GL1:=GL1+1;
end
else if Copy(Fields[1].AsString,1,1)='B' then
begin
CY1:=CY1+1;
end
else if Copy(Fields[1].AsString,1,1)='C' then
begin
CX1:=CX1+1;
end
else if Copy(Fields[1].AsString,1,1)='D' then
begin
DD1:=DD1+1;
end
else if Copy(Fields[1].AsString,1,1)='E' then
begin
ZL1:=ZL1+1;
end
else if Copy(Fields[1].AsString,1,1)='G' then
begin
LD1:=LD1+1;
end
else if Copy(Fields[1].AsString,1,1)='F' then
begin
SJ1:=SJ1+1;
end;
begin
str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
Label4.Caption:=Inttostr(x)+' '+str1;
Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
ListBox2.Items.Add(Str1);
X:=x-1;
with aqWork do
begin
Close;
sql.Clear;
sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
parameters.ParamByName('grade').Value:=gra;
parameters.ParamByName('ser_no').Value:=i;
Execsql;
end;
with atWork do
begin
TableName:='Luckly';
Open;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -