235 lines
6.5 KiB
ObjectPascal
235 lines
6.5 KiB
ObjectPascal
unit U_ZdyMapSel;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, Buttons, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
|
||
cxLookAndFeelPainters, dxBarBuiltInMenu, cxPC, DBClient;
|
||
|
||
type
|
||
TfrmZdyMapSel = class(TForm)
|
||
ScrollBox1: TScrollBox;
|
||
btn1: TSpeedButton;
|
||
btn2: TSpeedButton;
|
||
btn3: TSpeedButton;
|
||
btn4: TSpeedButton;
|
||
btn5: TSpeedButton;
|
||
ADOTmp: TADOQuery;
|
||
CDS_Kuang: TClientDataSet;
|
||
cxTabControl1: TcxTabControl;
|
||
SpeedButton1: TSpeedButton;
|
||
SpeedButton2: TSpeedButton;
|
||
SpeedButton3: TSpeedButton;
|
||
SpeedButton4: TSpeedButton;
|
||
SpeedButton5: TSpeedButton;
|
||
SpeedButton6: TSpeedButton;
|
||
SpeedButton7: TSpeedButton;
|
||
SpeedButton8: TSpeedButton;
|
||
SpeedButton9: TSpeedButton;
|
||
SpeedButton10: TSpeedButton;
|
||
SpeedButton11: TSpeedButton;
|
||
SpeedButton12: TSpeedButton;
|
||
SpeedButton13: TSpeedButton;
|
||
SpeedButton14: TSpeedButton;
|
||
SpeedButton15: TSpeedButton;
|
||
SpeedButton16: TSpeedButton;
|
||
SpeedButton17: TSpeedButton;
|
||
SpeedButton18: TSpeedButton;
|
||
SpeedButton19: TSpeedButton;
|
||
SpeedButton20: TSpeedButton;
|
||
SpeedButton21: TSpeedButton;
|
||
SpeedButton22: TSpeedButton;
|
||
SpeedButton23: TSpeedButton;
|
||
SpeedButton24: TSpeedButton;
|
||
SpeedButton25: TSpeedButton;
|
||
SpeedButton26: TSpeedButton;
|
||
SpeedButton27: TSpeedButton;
|
||
SpeedButton28: TSpeedButton;
|
||
SpeedButton29: TSpeedButton;
|
||
SpeedButton30: TSpeedButton;
|
||
SpeedButton31: TSpeedButton;
|
||
SpeedButton32: TSpeedButton;
|
||
SpeedButton33: TSpeedButton;
|
||
SpeedButton34: TSpeedButton;
|
||
SpeedButton35: TSpeedButton;
|
||
SpeedButton36: TSpeedButton;
|
||
SpeedButton37: TSpeedButton;
|
||
SpeedButton38: TSpeedButton;
|
||
SpeedButton39: TSpeedButton;
|
||
SpeedButton40: TSpeedButton;
|
||
SpeedButton41: TSpeedButton;
|
||
SpeedButton42: TSpeedButton;
|
||
SpeedButton43: TSpeedButton;
|
||
SpeedButton44: TSpeedButton;
|
||
SpeedButton45: TSpeedButton;
|
||
SpeedButton46: TSpeedButton;
|
||
SpeedButton47: TSpeedButton;
|
||
SpeedButton48: TSpeedButton;
|
||
SpeedButton49: TSpeedButton;
|
||
SpeedButton50: TSpeedButton;
|
||
SpeedButton51: TSpeedButton;
|
||
SpeedButton52: TSpeedButton;
|
||
SpeedButton53: TSpeedButton;
|
||
SpeedButton54: TSpeedButton;
|
||
SpeedButton55: TSpeedButton;
|
||
SpeedButton56: TSpeedButton;
|
||
SpeedButton57: TSpeedButton;
|
||
SpeedButton58: TSpeedButton;
|
||
SpeedButton59: TSpeedButton;
|
||
SpeedButton60: TSpeedButton;
|
||
SpeedButton61: TSpeedButton;
|
||
SpeedButton62: TSpeedButton;
|
||
SpeedButton63: TSpeedButton;
|
||
SpeedButton64: TSpeedButton;
|
||
SpeedButton65: TSpeedButton;
|
||
SpeedButton66: TSpeedButton;
|
||
SpeedButton67: TSpeedButton;
|
||
SpeedButton68: TSpeedButton;
|
||
SpeedButton69: TSpeedButton;
|
||
SpeedButton70: TSpeedButton;
|
||
SpeedButton71: TSpeedButton;
|
||
SpeedButton72: TSpeedButton;
|
||
SpeedButton73: TSpeedButton;
|
||
SpeedButton74: TSpeedButton;
|
||
SpeedButton75: TSpeedButton;
|
||
SpeedButton76: TSpeedButton;
|
||
SpeedButton77: TSpeedButton;
|
||
SpeedButton78: TSpeedButton;
|
||
SpeedButton79: TSpeedButton;
|
||
SpeedButton80: TSpeedButton;
|
||
SpeedButton81: TSpeedButton;
|
||
SpeedButton82: TSpeedButton;
|
||
SpeedButton83: TSpeedButton;
|
||
SpeedButton84: TSpeedButton;
|
||
SpeedButton85: TSpeedButton;
|
||
SpeedButton86: TSpeedButton;
|
||
SpeedButton87: TSpeedButton;
|
||
SpeedButton88: TSpeedButton;
|
||
SpeedButton89: TSpeedButton;
|
||
SpeedButton90: TSpeedButton;
|
||
SpeedButton91: TSpeedButton;
|
||
SpeedButton92: TSpeedButton;
|
||
SpeedButton93: TSpeedButton;
|
||
SpeedButton94: TSpeedButton;
|
||
SpeedButton95: TSpeedButton;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure btn1Click(Sender: TObject);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
private
|
||
procedure InitPerson();
|
||
{ Private declarations }
|
||
public
|
||
FlagStr: string;
|
||
FSDPerson: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmZdyMapSel: TfrmZdyMapSel;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmZdyMapSel.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmZdyMapSel := nil;
|
||
end;
|
||
|
||
procedure TfrmZdyMapSel.InitPerson();
|
||
var
|
||
i, j: Integer;
|
||
begin
|
||
j := cxTabControl1.TabIndex * 100 + 1;
|
||
for i := 0 to 99 do
|
||
begin
|
||
|
||
with ScrollBox1 do
|
||
begin
|
||
if CDS_Kuang.locate('keyNo', j + i, []) then
|
||
begin
|
||
// application.MessageBox(pchar(CDS_Kuang.FieldByName('ZDYName').AsString), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
TSpeedButton(Controls[i]).Visible := True;
|
||
TSpeedButton(Controls[i]).Caption := Trim(CDS_Kuang.FieldByName('ZDYName').AsString);
|
||
if Trim(CDS_Kuang.FieldByName('ZYZT').AsString) = '<27><>ռ<EFBFBD><D5BC>' then
|
||
TSpeedButton(Controls[i]).Font.Color := clOlive
|
||
else
|
||
TSpeedButton(Controls[i]).Font.Color := clGreen;
|
||
end
|
||
else
|
||
begin
|
||
TSpeedButton(Controls[i]).Visible := False;
|
||
|
||
// application.MessageBox(pchar('û<>ҵ<EFBFBD>' + inttostr(i)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmZdyMapSel.FormShow(Sender: TObject);
|
||
begin
|
||
// with ADOTmp do
|
||
// begin
|
||
// Close;
|
||
// sql.Clear;
|
||
// sql.Add('select A.ZDYName ');
|
||
// sql.Add(' ,keyNo=cast((ROW_NUMBER() over(order by A.ZDYName) )as int)');
|
||
// sql.Add(' ,ZYZT=(select top 1 ''<27><>ռ<EFBFBD><D5BC>'' from WFB_MJJY X where X.KuangHao=A.ZDYName and X.MJStr2=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ) ');
|
||
// sql.Add(' from KH_ZDY A ');
|
||
// sql.Add(' where Type=''' + Trim(FlagStr) + ''' ');
|
||
// sql.Add(' order by ZDYName ');
|
||
// Open;
|
||
// end;
|
||
with ADOTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.ZDYName ');
|
||
sql.Add(' ,keyNo=cast((ROW_NUMBER() over(order by A.ZDYName) )as int)');
|
||
sql.Add(' ,ZYZT=(case when (select count(mjid) from WFB_MJJY x where X.KuangHao=A.ZDYName and X.MJStr2=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')>0 then ''<27><>ռ<EFBFBD><D5BC>'' else '''' end ) ');
|
||
sql.Add(' from KH_ZDY A ');
|
||
sql.Add(' where Type=''' + Trim(FlagStr) + ''' ');
|
||
sql.Add(' order by ZDYName ');
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOTmp, CDS_Kuang);
|
||
SInitCDSData(ADOTmp, CDS_Kuang);
|
||
|
||
InitPerson();
|
||
end;
|
||
|
||
procedure TfrmZdyMapSel.btn1Click(Sender: TObject);
|
||
begin
|
||
FSDPerson := Trim(TSpeedButton(Sender).Caption);
|
||
|
||
if CDS_Kuang.locate('ZDYName', FSDPerson, []) then
|
||
begin
|
||
|
||
if Trim(CDS_Kuang.FieldByName('ZYZT').AsString) = '<27><>ռ<EFBFBD><D5BC>' then
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫѡ<D2AA><D1A1><EFBFBD>Ѿ<EFBFBD>ռ<EFBFBD>õĿ<C3B5><C4BF><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
|
||
ModalResult := 1;
|
||
end
|
||
else
|
||
ModalResult := 1;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmZdyMapSel.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
InitPerson();
|
||
end;
|
||
|
||
end.
|
||
|