chcxut.pas

仓库的进销存,及查询,供应商的管理.和库存的查询及管理.

unit chcxut;

interface

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

type
  Tckcxfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    cxbt: TSpeedButton;
    qxbt: TSpeedButton;
    bhrb: TRadioButton;
    rqrb: TRadioButton;
    clmcbox: TComboBox;
    clbhedit: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    mcrb: TRadioButton;
    lastbt: TSpeedButton;
    nextbt: TSpeedButton;
    closebt: TSpeedButton;
    rqbox: TDateTimePicker;
    ADOQuery: TADOQuery;
    DataSource1: TDataSource;
    procedure mcrbClick(Sender: TObject);
    procedure bhrbClick(Sender: TObject);
    procedure rqrbClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cxbtClick(Sender: TObject);
    procedure lastbtClick(Sender: TObject);
    procedure nextbtClick(Sender: TObject);
    procedure closebtClick(Sender: TObject);
    procedure clmcboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure clbheditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rqboxKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ckcxfm: Tckcxfm;
   checked:integer;
implementation

{$R *.dfm}

procedure Tckcxfm.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 ckb');
open;
end;
end;

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

procedure Tckcxfm.rqrbClick(Sender: TObject);
begin
checked:=3
end;

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

procedure Tckcxfm.cxbtClick(Sender: TObject);
begin
//if (mcrb.Checked=false) or (bhrb.Checked=false) or (rqrb.Checked=false) then
//begin
//showmessage('请选择查询条件!');
//exit;
//end;
with adoquery do
begin
close;
sql.Clear;
case checked of
1:
begin
sql.Add('select * from ckb where 名称=:mc');
Parameters.ParamByName('mc').Value:=clmcbox.Text;
end;
2:
begin
sql.Add('select * from ckb where 编号=:bh');
Parameters.ParamByName('bh').Value:=clbhedit.Text;
end;
3:
begin
sql.Add('select * from ckb where 出库日期=:rq');
Parameters.ParamByName('rq').Value:=datetostr(rqbox.Date);

end;
end;
open;
end;
end;

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

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

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

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

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

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

end.