pfm_fdthdselck.pas

这是一个用DELPHI7开发的大型超市管理系统

unit pfm_fdthdselck;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Buttons, Db, DBTables;

type
  Tfm_fdthdselck = class(TForm)
    GroupBox2: TGroupBox;
    BBtnOK: TBitBtn;
    BBtnCancel: TBitBtn;
    Query1: TQuery;
    LBox1: TListBox;
    procedure BBtnOKClick(Sender: TObject);
    procedure BBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ckmc:string;
  end;

var
  fm_fdthdselck: Tfm_fdthdselck;

implementation

{$R *.DFM}

procedure Tfm_fdthdselck.BBtnOKClick(Sender: TObject);
begin
     if Lbox1.itemindex<0 then
     begin
        showmessage('请选择发货仓库');
        exit;
     end;
    Ckmc:=LBox1.items.strings[lBox1.itemindex];
    ModalResult:=MROK;
end;

procedure Tfm_fdthdselck.BBtnCancelClick(Sender: TObject);
begin
    modalResult:=MRCANCEL;
end;

procedure Tfm_fdthdselck.FormCreate(Sender: TObject);
begin
            //取分店及仓库名称
        query1.SQL.clear;
        query1.sql.add('select ckmc from t_ckxx');
        query1.open;
        while not query1.Eof do
        begin
             Lbox1.items.Add(query1.Fields[0].asstring);
             query1.next;
        end;
        query1.close;
end;

end.