D6HECHUAN/信息提醒/u_op_state_igz_one.pas

unit u_op_state_igz_one;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxControls, cxContainer, cxTreeView, bsSkinCtrls, DB, ADODB,ComCtrls,
  StdCtrls, cxImage, cxTrackBar, cxEdit, cxRadioGroup, ExtCtrls,
  bsSkinBoxCtrls;

type
  Tfrm_op_state_igz_one = class(TForm)
    bsSkinScrollBox1: TbsSkinScrollBox;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinButton5: TbsSkinButton;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    mblno,ctnNo:string;
  end;

var
  frm_op_state_igz_one: Tfrm_op_state_igz_one;

implementation
uses u_main,u_data_share, my_sys_function;

{$R *.dfm}

procedure Tfrm_op_state_igz_one.FormShow(Sender: TObject);
var
  i,j:integer;
  ctn,ctnstatus,ctnstatusDate,ctnstatusNode:string;
  ADOQuery1:TADOQuery;
begin
  ADOQuery1:=CreateAdoQuery;
  with ADOQuery1 do
  begin
    close;sql.Clear;
    SQL.Add('select * from t_op_state_igz');
    SQL.Add('where <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>=:<3A><><EFBFBD>ᵥ<EFBFBD><E1B5A5>  and <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
    SQL.Add('order by ״̬ʱ<CCAC><CAB1> desc ');
    Parameters.ParamByName('<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>').Value:=mblno;
    Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=ctnNo;
    Open;First;
    i:=1;
    while not eof do
    begin
        ctnstatus:=FieldByName('ҵ<><D2B5>״̬').AsString;
        ctnstatusDate:=FieldByName('״̬ʱ<CCAC><CAB1>').AsString;

          with TcxRadioButton.Create(Self) do
          begin
             Name := 'RadioButton' + InttoStr(I);
             Parent := bsSkinScrollBox1;
             Caption:='';
             Top:=10;
             Left:=10+(i-1)*140;
             if i=1 then
             begin
               Checked:=True;
             end;
             Enabled:=False;
             Width:=15;
          end;

          with TbsSkinLabel.Create(Self) do
          begin
             Name := 'Label' + InttoStr(I);
             Parent := bsSkinScrollBox1;
             Caption:=ctnstatus;
             Top:=40;
             Left:=10+(i-1)*140;
             Width:=120;
             SkinData:=frm_main.bsSkinData1;
          end;

          with TbsSkinLabel.Create(Self) do
          begin
             Name := 'Label' + InttoStr(I+1000);
             Parent := bsSkinScrollBox1;
             Caption:=ctnstatusDate;
             SkinData:=frm_main.bsSkinData1;
             Top:=60;
             Left:=10+(i-1)*140;
             Width:=120;
          end;


          with TbsSkinPanel.Create(Self) do
          begin
             Name := 'Panel' + InttoStr(I);
             Parent := bsSkinScrollBox1;
             Caption:='';
             Top:=15;
             Left:=30+(i-1)*140;
             Height:=6;
             Width:=140;
             SkinData:=frm_main.bsSkinData1;
          end;
      i:=i+1;
      Next;
    end;
  end;
end;

procedure Tfrm_op_state_igz_one.bsSkinButton1Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_op_state_igz_one.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

end.