unit_selectinfop.pas

中国移动大客户管理系统

unit Unit_SelectInfoP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, ImgList, ComCtrls, Db,
  DBTables, TFlatButtonUnit;

type
  TFrm_SelectInfo = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ImageList1: TImageList;
    Query1: TQuery;
    ListView1: TListView;
    BitBtn1: TFlatButton;
    BitBtn2: TFlatButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    PubStr:String;
  end;

var
  Frm_SelectInfo: TFrm_SelectInfo;

implementation
Uses
   Unit_ManagerSMSSend,main,procedurep;

{$R *.DFM}

procedure TFrm_SelectInfo.BitBtn2Click(Sender: TObject);
begin
   PubStr:='';
   Close;
end;

procedure TFrm_SelectInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Query1.Close;
end;

procedure TFrm_SelectInfo.FormShow(Sender: TObject);
Var
   MyListItem:TListItem;
begin
   Query1.Open;
   While Not Query1.Eof Do
      Begin
         MyListItem:=ListView1.Items.Add;
         MyListItem.SubItems.Add(Trim(Query1.FieldByName('CONTENT').AsString));
         Query1.Next;
      End;
end;

procedure TFrm_SelectInfo.BitBtn1Click(Sender: TObject);
begin
   If Listview1.SelCount=0 Then
      Begin
         ShowMessage('请选择您将要发送的短信息！');
         Listview1.SetFocus;
         Exit;
      End;
   PubStr:=Listview1.Selected.SubItems.Strings[0];
   Close;

end;

procedure TFrm_SelectInfo.ListView1DblClick(Sender: TObject);
begin
   BitBtn1Click(Nil);
end;

end.