infindut.pas

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

unit infindut;

interface

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

type
  Trkcxfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    mcrb: TRadioButton;
    bhrb: TRadioButton;
    sjrb: TRadioButton;
    clmcbox: TComboBox;
    clbhedit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    cxbt: TSpeedButton;
    qxbt: TSpeedButton;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    lastbt: TSpeedButton;
    nextbt: TSpeedButton;
    closebt: TSpeedButton;
    ADOQuery: TADOQuery;
    DataSource1: TDataSource;
    rq1box: TDateTimePicker;
    rq2box: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure mcrbClick(Sender: TObject);
    procedure bhrbClick(Sender: TObject);
    procedure sjrbClick(Sender: TObject);
    procedure cxbtClick(Sender: TObject);
    procedure closebtClick(Sender: TObject);
    procedure lastbtClick(Sender: TObject);
    procedure nextbtClick(Sender: TObject);
    procedure qxbtClick(Sender: TObject);
    procedure clmcboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure clbheditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rq1boxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rq2boxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rkcxfm: Trkcxfm;
  checked:integer;
implementation

{$R *.dfm}

procedure Trkcxfm.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 rkb');
open;
end;
mcrb.Checked:=true;
checked:=1;
end;

procedure Trkcxfm.mcrbClick(Sender: TObject);
begin
clmcbox.clear;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from bhb');
open;
first;
while not eof do
begin
clmcbox.Items.Add(fieldbyname('名称').AsString);
next;
end;
end;
checked:=1;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from rkb');
open;
end;
end;

procedure Trkcxfm.bhrbClick(Sender: TObject);
begin
checked:=2;
end;

procedure Trkcxfm.sjrbClick(Sender: TObject);
begin
checked:=3;
end;

procedure Trkcxfm.cxbtClick(Sender: TObject);
var
str:string;
begin
//if (mcrb.Checked=false) or (bhrb.Checked=false) or (sjrb.Checked=false) then
//begin
//showmessage('请选择查询条件!');
//exit;
//end;
with adoquery do
begin
close;
sql.Clear;
case checked of
1:
begin
sql.Add('select * from rkb where 名称=:mc');
Parameters.ParamByName('mc').Value:=clmcbox.Text;
end;
2:
begin
sql.Add('select * from rkb where 文献刊物编号=:bh');
Parameters.ParamByName('bh').Value:=clbhedit.Text;
end;
3:
begin
sql.Add('select * from rkb where 进货日期>=:rq1 and 进货日期<=:rq2');
Parameters.ParamByName('rq1').Value:=datetostr(rq1box.Date);
Parameters.ParamByName('rq2').Value:=datetostr(rq2box.Date);
end;
end;
open;
end;
end;

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

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

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

procedure Trkcxfm.qxbtClick(Sender: TObject);
begin
clbhedit.Clear;
clmcbox.Clear ;
end;

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

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

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

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

end.