D10szXIANGYING/E03梭织坯布检验/U_SCPersonColor.pas

unit U_SCPersonColor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, DB, ADODB, StdCtrls;

type
  TfrmSCPersonColor = class(TForm)
    ScrollBox1: TScrollBox;
    btn58: TSpeedButton;
    btn9: TSpeedButton;
    btn10: TSpeedButton;
    btn11: TSpeedButton;
    btn12: TSpeedButton;
    btn59: TSpeedButton;
    btn16: TSpeedButton;
    btn17: TSpeedButton;
    btn18: TSpeedButton;
    btn19: TSpeedButton;
    btn60: TSpeedButton;
    btn23: TSpeedButton;
    btn24: TSpeedButton;
    btn25: TSpeedButton;
    btn26: TSpeedButton;
    btn61: TSpeedButton;
    btn31: TSpeedButton;
    btn32: TSpeedButton;
    btn33: TSpeedButton;
    ADOTmp: TADOQuery;
    Label27: TLabel;
    Label1: TLabel;
    Button3: TButton;
    Button1: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    CPage: Integer;
    procedure InitPerson(page: Integer);
    { Private declarations }
  public
    FlagStr: string;
    FName, FSJZL, FType, FBCIOID, FHINT: string;
    FC_Code,fMFflag: string;
    { Public declarations }
  end;

var
  frmSCPersonColor: TfrmSCPersonColor;

implementation

uses
  U_DataLink;

{$R *.dfm}

procedure TfrmSCPersonColor.FormDestroy(Sender: TObject);
begin
  frmSCPersonColor := nil;
end;

procedure TfrmSCPersonColor.InitPerson(page: Integer);
type
  FdDy = record
    inc: integer;
    FDdys: string[32];
    FdDysName: string[32];
  end;
var
  BB: array[0..500] of FdDy;
  i, j: Integer;
begin
  if ftype = '<27><>̨<EFBFBD><CCA8>' then
  begin

  end;

  if FMFFlag = '<27><><EFBFBD><EFBFBD>' then
  begin
    with ADOTmp do
    begin
      Close;
      sql.Clear;
//    sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_MXWIDTH as name,MXID,tube,Packaging,Seal from BS_CLOTH_IO_MX  ');
//    SQL.Add('WHERE  BCIOID=' + QuotedStr(Trim(FBCIOID)));
      sql.Add('select AA.*,row_number () over (order by  CAST(name AS NUMERIC)) as keyNo from(select DISTINCT A.C_MXMF as name, min(A.MFID) as MXID,min(B.tube) as tube,min(B.Packaging) as Packaging,min(B.Seal) as Seal from BS_CLOTH_MF A    ');
      SQL.Add('  FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
      SQL.Add(' WHERE A.C_CODE =' + QuotedStr(Trim(FC_Code)));
      SQL.Add('  Group By A.C_CODE,A.C_MXMF ');

      SQL.Add(')AA');
      SQL.Add('  Order By CAST(AA.name AS NUMERIC) ');
//    showmessage(sql.text);
      Open;
    end;
  end
  else if FMFFlag = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then

  begin
    with ADOTmp do
    begin
      Close;
      sql.Clear;
      sql.Add('select AA.*,row_number () over (order by CAST(name AS NUMERIC)) as keyNo from(select DISTINCT C_MXWIDTH as name,MXID,tube,Packaging,Seal from BS_CLOTH_IO_MX  ');
      SQL.Add('WHERE  BCIOID=' + QuotedStr(Trim(FBCIOID)));
//      sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT A.C_MXMF as name, B.MXID,B.tube,B.Packaging,B.Seal from BS_CLOTH_MF A    ');
//      SQL.Add('  FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
//      SQL.Add(' WHERE A.C_CODE =' + QuotedStr(Trim(FC_Code)));
      SQL.Add(')AA');
      SQL.Add('  Order By CAST(AA.name AS NUMERIC) ');
//    showmessage(sql.text);
      Open;
    end;
  end;

  if ADOTmp.IsEmpty then
  begin
    Application.MessageBox('û<>ж<EFBFBD><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ', 0);
    Exit;
  end;

  j := (StrToInt(Label1.Caption) - 1) * 20 + 1;
  for i := 0 to 19 do
  begin

    with ScrollBox1 do
    begin
      if ADOTmp.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 := '<27>ŷ<EFBFBD>:' + Trim(ADOTmp.FieldByName('name').AsString);
        TSpeedButton(Controls[i]).Caption := TSpeedButton(Controls[i]).Caption + #13 + 'ֽ<>ܣ<EFBFBD>' + Trim(ADOTmp.FieldByName('tube').AsString);
        TSpeedButton(Controls[i]).Caption := TSpeedButton(Controls[i]).Caption + #13 + '<27><>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>' + Trim(ADOTmp.FieldByName('Packaging').AsString);
        TSpeedButton(Controls[i]).Caption := TSpeedButton(Controls[i]).Caption + #13 + '<27><><EFBFBD>⣺' + Trim(ADOTmp.FieldByName('Seal').AsString);

        TSpeedButton(Controls[i]).HINT := Trim(ADOTmp.FieldByName('MXID').AsString);
      end
      else
      begin
        TSpeedButton(Controls[i]).Visible := False;

//        application.MessageBox(pchar('û<>ҵ<EFBFBD>' + inttostr(i)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);

      end;

    end;
  end;


//  with ADOTmp do
//  begin
//    First;
//    i := 0;
//    while not Eof do
//    begin
//      BB[i].inc := i;
//      BB[i].FdDysName := Trim(fieldbyname('name').AsString);
//      i := i + 1;
//      Next;
//    end;
//  end;
//  i := i - 1;
//  if i > 19 then
//  begin
//    i := 19;
//  end;
//  for j := 0 to 19 do
//  begin
//    with ScrollBox1 do
//    begin
//      TSpeedButton(Controls[j]).Visible := false;
//      TSpeedButton(Controls[j]).Caption := '';
//      TSpeedButton(Controls[j]).Hint := '';
//    end;
//  end;
//  for j := 0 to i do
//  begin
//    with ScrollBox1 do
//    begin
//      TSpeedButton(Controls[j]).Visible := True;
//      TSpeedButton(Controls[j]).Caption := BB[j].FdDysName;
//    end;
//  end;
end;

procedure TfrmSCPersonColor.FormShow(Sender: TObject);
begin
  InitPerson(1);
  CPage := 1;
end;

procedure TfrmSCPersonColor.btn1Click(Sender: TObject);
begin
  FName := Trim(TSpeedButton(Sender).Caption);
  FHINT := Trim(TSpeedButton(Sender).HINT);
  ModalResult := 1;
end;

procedure TfrmSCPersonColor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caHide;
end;

procedure TfrmSCPersonColor.Button1Click(Sender: TObject);
begin
  if CPage <= 1 then
  begin

    Label1.Caption := '1';
    InitPerson(1);
  end
  else
  begin
    CPage := CPage - 1;

    Label1.Caption := IntToStr(CPage);
    InitPerson(CPage);
  end;
end;

procedure TfrmSCPersonColor.Button3Click(Sender: TObject);
begin
  CPage := CPage + 1;
  Label1.Caption := IntToStr(CPage);
  InitPerson(CPage);
end;

end.