selectfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit Selectfrm;

interface

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

type
  TSelectForm = class(TForm)
    Panel1: TPanel;
    BitBtn5: TBitBtn;
    BitBtn1: TBitBtn;
    ListBox1: TListBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectForm: TSelectForm;

implementation
uses Datamodule1,ShoushiRptfrm;

{$R *.dfm}

procedure TSelectForm.FormShow(Sender: TObject);
var
   I:Byte;
   STemp:String;
begin
   if CurrentQry='收视' then
   with DM.qryShoushi do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Select S_Date from shoushilv');
      Open;
      First;
      while not eof do
      begin
         if FieldByName('S_Date').AsString<>STemp then
         ListBox1.Items.Add(FieldByName('S_Date').AsString);
         STemp:=FieldByName('S_Date').AsString;
         Next;
      end;
      Close;
      
   end;
end;

procedure TSelectForm.BitBtn1Click(Sender: TObject);
var
   SelectQStr:String;
   I:Byte;
begin
     SelectQStr:='';
     try
       I:=ListBox1.ItemIndex;
       SelectQStr:=Listbox1.Items[I];
       ShoushiRpt(SelectQStr);
     except
        MessageBox(Application.Handle,'不能选择空纪录！','提示',
            MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
     end;
end;

end.