uset.~pas

相关的销售服务管理行业的一个软件

unit Uset;

interface

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

type
  TFrmset = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Btnok: TBitBtn;
    BitExit: TBitBtn;
    LstSet: TCheckListBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    procedure LstSetDblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmset: TFrmset;

implementation

uses Ufunction;

{$R *.DFM}

procedure TFrmset.LstSetDblClick(Sender: TObject);
begin
   //showmessage(Tww(lstset.Items.Objects[lstset.ItemIndex]).ww);
   case Frmset.Tag of
     1: begin
           case StrtoInt(Tww(lstset.Items.Objects[lstset.ItemIndex]).ww) of
            5..19,22,23: begin
                          edit1.Visible :=true;
                          edit1.text:=LstSet.Items[LstSet.ItemIndex];
                          SpeedButton1.Visible :=true;
                        end;
            else
                      edit1.Visible :=false;
                      SpeedButton1.Visible :=false;
           end;
         end;
    end;
    { case 2:{switch (LstSet->ItemIndex)
              {
               case 17:{ fresh(LstSet,2,17);break;}
     //          case 18:{ fresh(LstSet,2,28);break;}
      //         case 19:{ fresh(LstSet,2,29);break;}
       //        case 20:{ fresh(LstSet,2,20);break;}
       //        case 21:{ fresh(LstSet,2,21);break;}


end;

procedure TFrmset.SpeedButton1Click(Sender: TObject);
begin
  if trim(edit1.text)<>'' then
  fresh(LstSet,600,StrToINt(Tww(lstset.Items.Objects[lstset.ItemIndex])).ww,trim(edit1.text));
end;

end.