kccxut.pas

本系统主要划分为11个子模块：与操作员有关的文献刊物入库、出库、库结存和文献刊物查询

unit kccxut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Buttons, ExtCtrls, DB, ADODB;

type
  Tkccxfm = class(TForm)
    Panel1: TPanel;
    lastbt: TSpeedButton;
    nextbt: TSpeedButton;
    closebt: TSpeedButton;
    GroupBox1: TGroupBox;
    cxbt: TSpeedButton;
    qxbt: TSpeedButton;
    cxtjbox: TComboBox;
    gjzedit: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery: TADOQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure lastbtClick(Sender: TObject);
    procedure nextbtClick(Sender: TObject);
    procedure closebtClick(Sender: TObject);
    procedure qxbtClick(Sender: TObject);
    procedure cxbtClick(Sender: TObject);
    procedure cxtjboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure gjzeditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kccxfm: Tkccxfm;

implementation

{$R *.dfm}

procedure Tkccxfm.FormCreate(Sender: TObject);
var
mypath:string;
begin
mypath:=extractfilepath(paramstr(0));
ADOquery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mypath+'data\kcgl.mdb;Persist Security Info=False';
ADOquery.active:=true;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from kcb');
open;
end;
end;

procedure Tkccxfm.lastbtClick(Sender: TObject);
begin
with adoquery do
begin
Prior;
end;
end;

procedure Tkccxfm.nextbtClick(Sender: TObject);
begin
with adoquery do
begin
next;
end;
end;

procedure Tkccxfm.closebtClick(Sender: TObject);
begin
close;
end;

procedure Tkccxfm.qxbtClick(Sender: TObject);
begin
gjzedit.Clear;

end;

procedure Tkccxfm.cxbtClick(Sender: TObject);
var
str:string;
begin
if (cxtjbox.Text='') or (gjzedit.Text='') then
begin
showmessage('请输入查询完整信息！');
exit;
end;
str:='select * from kcb where ';
case cxtjbox.ItemIndex of
0:str:=str+'名称=:gjz';
1:str:=str+'编号=:gjz';
2:str:=str+'种类=:gjz';
3:str:=str+'货位=:gjz';
4:str:=str+'数量>=:gjz';
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add(str);
Parameters.ParamByName('gjz').Value:=gjzedit.Text;
open;
end;

end;

procedure Tkccxfm.cxtjboxKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
cxbt.Click;
end;

procedure Tkccxfm.gjzeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
cxbt.Click;
end;

end.