ps_stkplus.pas

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

unit PS_stkPlus;

interface

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

type
  TF_stkPlus = class(TForm)
    L_warehouseid: TLabel;
    L_cash: TLabel;
    E_cash: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CB_warehouseid: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_stkPlus: TF_stkPlus;

implementation

uses PS_db;

{$R *.DFM}

procedure TF_stkPlus.FormCreate(Sender: TObject);
var
  location:Tbookmark;//想用它来保存移动前位置
begin
  with comdatabase.comwarehouse do begin
    disablecontrols;
    location:=getbookmark;
    first;
    while not eof do begin
      cb_warehouseid.Items.Add(fieldvalues['id']);
      next;
      end;
    gotobookmark(location);
    freebookmark(location);
    enablecontrols;
    end;
end;

procedure TF_stkPlus.BitBtn1Click(Sender: TObject);
begin
  if E_cash.text='' then E_cash.text:='0';
end;

end.