usetitem.~pas

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

unit USetItem;

interface

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

type
  TfrmSetItem = class(TForm)
    clBox: TCheckListBox;
    ToolBar1: TToolBar;
    BtnSave: TToolButton;
    BtnEixt: TToolButton;
    ToolButton1: TToolButton;
    Panel1: TPanel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnEixtClick(Sender: TObject);
    procedure clBoxDblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    SaveOrCancel:Boolean;
    { Public declarations }
  end;

var
  frmSetItem: TfrmSetItem;

implementation

uses UClass_Develop, UDM;

{$R *.DFM}

procedure TfrmSetItem.FormShow(Sender: TObject);
//var
  //i:integer;
begin
 { clBox.Items.Clear;
  i:=0;
  With frmClass_Develop.ADOQuery1 do
  begin
    First;
    While not Eof do
    begin
      clBox.Items.Add(FieldByName('nCaption').AsString);
      clBox.Checked[i]:=FieldByName('bUse').AsBoolean;
      inc(i);
      Next;
    end;
  end;     }
end;

procedure TfrmSetItem.BtnSaveClick(Sender: TObject);
//var
  //i:integer;
begin
SaveOrCancel:=true;
close;
{  i:=0;
  With frmClass_Develop.ADOQuery1 do
  begin
    First;
    While not Eof do
    begin
      Edit;
      FieldByName('bUse').AsBoolean:=clBox.Checked[i];
      if not clBox.Checked[i] then
        FieldByName('iOrder').AsInteger:=100;
      Post;
      inc(i);
      Next;
    end;
  end;      }
end;

procedure TfrmSetItem.FormCreate(Sender: TObject);
begin
  SaveOrCancel:=False;
end;

procedure TfrmSetItem.BtnEixtClick(Sender: TObject);
begin
  SaveOrCancel:=false;
  Close;
end;

procedure TfrmSetItem.clBoxDblClick(Sender: TObject);
begin
  Panel1.Visible:=true;
  Edit1.Text:=clBox.Items.Strings[clBox.ItemIndex];
end;

procedure TfrmSetItem.SpeedButton1Click(Sender: TObject);
begin
  clBox.Items.Strings[clBox.ItemIndex]:=Edit1.Text;
  Panel1.Visible:=false;
end;

end.