unit1.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 154 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,Dbmain,wpfuncs,vafuncs, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    AddrBox: TComboBox;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    MesText: TMemo;
    BitBtn2: TBitBtn;
    btnSend: TBitBtn;
    TabSheet3: TTabSheet;
    lv: TListView;
    LV1: TListView;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Button1: TButton;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
    procedure init;

  public
    { Public declarations }
  end;

//var
//  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var ole:olevariant;
begin
  PageControl1.ActivePage:=TabSheet1;
   ole:=sup.PS_Get_Users('');
   addrbox.items:= Get_ColRecords(ole,1);
   init;
end;

procedure TForm1.btnSendClick(Sender: TObject);
var i:integer;
    str:string;
begin
    if addrBox.Text='' then begin
       Showmessage('请输入收消息者!');
       exit;
    end;
    if MesText.Lines.Count>0 then begin
               for i:=0 to MesText.Lines.Count-1 do begin
                   str:=MesText.Lines[i]+str;

               end;
    end else begin
        Showmessage('请输入消息!');
        exit;
    end;
    if sup.ps_ins_mes(sup.PS_Username,addrBox.text,str)<0 then
       showmessage(sup.PS_LastError);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if sup.PS_Del_Mes('delete from csi_mes where c_from ='+''''+sup.PS_Username+'''')<0 then
    Showmessage(sup.ps_lasterror)
 else init;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if sup.PS_Del_Mes('delete from csi_mes where c_to ='+''''+sup.PS_Username+'''')<0 then
    Showmessage(sup.ps_lasterror)
 else init;

end;

procedure Tform1.Init;
var rows:olevariant;
begin
        lv1.Columns.Clear;
        lv1.Items.Clear;
        lv1.Items.BeginUpdate;
        Lv1.Columns.BeginUpdate;
        rows:=sup.PS_Get_mes('select * from csi_mes where c_from='+''''+sup.ps_username+''''+'order by c_date');
        ListViewAddColumns(['时间','','','发送到','消息',''],[75,0,0,75,550,0],lv1);
        ListViewAddRows(rows,lv1);
        lv1.Items.EndUpdate;
        Lv1.Columns.EndUpdate;

        lv.Columns.Clear;
        lv.Items.Clear;
        lv.Items.BeginUpdate;
        Lv.Columns.BeginUpdate;
        rows:=sup.PS_Get_mes('select * from csi_mes where c_to='+''''+sup.ps_username+''''+'order by c_date');
        ListViewAddColumns(['时间','','来自','','消息',''],[75,0,75,0,550,0],lv);
        ListViewAddRows(rows,lv);
        lv.Items.EndUpdate;
        Lv.Columns.EndUpdate;
        Exit;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
   init;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var i:integer;
    str:string;
begin
 if MesText.Lines.Count>0 then begin
               for i:=0 to MesText.Lines.Count-1 do begin
                   str:=MesText.Lines[i]+str;

               end;
    end else begin
        Showmessage('请输入消息!');
        exit;
    end;
    if addrbox.Items.Count>0 then begin
       for i:=0 to addrbox.Items.count-1 do
         if sup.ps_ins_mes(sup.PS_Username,addrBox.Items.Strings[i],str)<0 then
            showmessage(sup.PS_LastError);

    end;
end;

end.