disticketfrm.pas.svn-base

这个是个简单的关于出票申请的处理

unit DisTicketFrm;

interface
{$DEFINE TEST}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseFrm, StdCtrls, jpeg, ExtCtrls, ComCtrls;

type
  PAgentInfo = ^TAgentInfo;
  TAgentInfo = record
    AgentId: string;
    AgentName: string;
    TicketCount: Integer;
  end;
  TFormDisTickets = class(TFormBase)
    pnlLeft: TPanel;
    pnlClient: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    pnlBottom: TPanel;
    tvAgent: TTreeView;
    Label1: TLabel;
    EdtAgentID: TEdit;
    Label2: TLabel;
    EdtTicketCount: TEdit;
    Label3: TLabel;
    EdtAgentName: TEdit;
    procedure FormShow(Sender: TObject);
    procedure tvAgentGetSelectedIndex(Sender: TObject; Node: TTreeNode);
  private
    { Private declarations }
    procedure LoadAgentInfo;
  public
    { Public declarations }
  end;

var
  FormDisTickets: TFormDisTickets;

implementation
uses
  SystemDM, systemPH;
{$R *.dfm}

{ TFormDisTickets }

procedure TFormDisTickets.LoadAgentInfo;
var
  I, nRecordCount: Integer;
  sSqlStr: string;
  PAgentData: PAgentInfo;
begin
  sSqlStr := 'SELECT ID, USERNAME, TICKET_COUNT FROM SITE_USER';
  if DMSystem.SQL_Querys(DMSystem.Qry_Temp, sSqlStr) then
  with DMSystem.Qry_Temp do
  try
    First;
    nRecordCount := RecordCount;
    {$IFDEF TEST}
    nRecordCount := 1000;
    {$ENDIF}
    SendMessage(Application.MainForm.Handle, WM_STATUS_MSG, DEF_START_UPDATE, nRecordCount);
    for I := 0 to nRecordCount-1 do
    begin
      New(PAgentData);
      PAgentData.AgentId := Trim(FieldByName('ID').AsString);
      PAgentData.AgentName := Trim(FieldByName('USERNAME').AsString);
      PAgentData.TicketCount := FieldByName('TICKET_COUNT').AsInteger;
      tvAgent.Items.AddChildObject(nil, PAgentData.AgentId, PAgentData);
      SendMessage(Application.MainForm.Handle, WM_STATUS_MSG, DEF_PLAYING_UPDATE, I);
      Next;
      Application.ProcessMessages;
    end;
  finally
    SendMessage(Application.MainForm.Handle, WM_STATUS_MSG, DEF_FINISHED_UPDATE, 0);
  end;
end;

procedure TFormDisTickets.FormShow(Sender: TObject);
begin
  inherited;
  LoadAgentInfo;
end;

procedure TFormDisTickets.tvAgentGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  inherited;
  if Node = nil then Exit;
  EdtAgentID.Text := PAgentInfo(Node.Data)^.AgentId;
  EdtAgentName.Text := PAgentInfo(Node.Data)^.AgentName;
  EdtTicketCount.Text := IntToStr(PAgentInfo(Node.Data)^.TicketCount);
end;

end.