clbhut.pas

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

unit clbhut;

interface

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

type
  Tclbhfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    clmcedit: TEdit;
    Label2: TLabel;
    bhedit: TEdit;
    ADOQuery: TADOQuery;
    Label3: TLabel;
    pledit: TEdit;
    Label4: TLabel;
    dwjgedit: TEdit;
    zjbt: TSpeedButton;
    xgbt: TSpeedButton;
    scbt: TSpeedButton;
    gbbt: TSpeedButton;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    Label5: TLabel;
    hwedit: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure gbbtClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure zjbtClick(Sender: TObject);
    procedure xgbtClick(Sender: TObject);
    procedure scbtClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  clbhfm: Tclbhfm;

implementation

{$R *.dfm}

procedure Tclbhfm.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 bhb');
open;
end;
end;

procedure Tclbhfm.gbbtClick(Sender: TObject);
begin
close;
end;

procedure Tclbhfm.DBGrid1CellClick(Column: TColumn);
begin
with adoquery do
begin
clmcedit.Text:=fieldbyname('名称').asstring;
bhedit.Text:=fieldbyname('编号').asstring;
pledit.Text:=fieldbyname('种类').AsString;
dwjgedit.Text:=fieldbyname('单位价格').AsString;
end;
end;

procedure Tclbhfm.zjbtClick(Sender: TObject);
begin
if clmcedit.Text='' then
begin
showmessage('文献刊物名不能为空!');
exit;
end;
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('insert into  bhb (名称,编号,种类,单位价格,货位) values(:mc,:bh,:pl,:dwjg,:hw)');
Parameters.ParamByName('mc').Value:=trim(clmcedit.Text);
Parameters.ParamByName('bh').Value:=trim(bhedit.Text);
Parameters.ParamByName('pl').Value:=trim(pledit.Text);
Parameters.ParamByName('dwjg').Value:=trim(dwjgedit.Text);
Parameters.ParamByName('hw').Value:=trim(hwedit.Text);
execsql;
showmessage('添加成功!');
clmcedit.Text:='';
bhedit.Text:='';
pledit.Text:='';
dwjgedit.Text:='';
end;
except
showmessage('添加失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from bhb');
open;
end;
end;

procedure Tclbhfm.xgbtClick(Sender: TObject);
begin
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('update bhb set 编号=:bh,种类=:pl,单位价格=:dwjg,货位=:hw where 名称=:mc');
Parameters.ParamByName('mc').Value:=trim(clmcedit.Text);
Parameters.ParamByName('bh').Value:=trim(bhedit.Text);
Parameters.ParamByName('pl').Value:=trim(pledit.Text);
Parameters.ParamByName('dwjg').Value:=trim(dwjgedit.Text);
Parameters.ParamByName('hw').Value:=trim(hwedit.Text);
execsql;
showmessage('修改成功!');
clmcedit.Text:='';
bhedit.Text:='';
pledit.Text:='';
dwjgedit.Text:='';
end;
 except
showmessage('修改失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from bhb');
open;
end;
end;

procedure Tclbhfm.scbtClick(Sender: TObject);
begin
if messagedlg('确定删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('delete from bhb where 名称=:mc');
Parameters.ParamByName('mc').Value:=trim(clmcedit.Text);
execsql;
showmessage('删除成功!');
clmcedit.Text:='';
bhedit.Text:='';
pledit.Text:='';
dwjgedit.Text:='';
end;
except
showmessage('删除失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from bhb');
open;
end;
end;
end;

procedure Tclbhfm.SpeedButton1Click(Sender: TObject);
begin
clmcedit.Text:='';
bhedit.Text:='';
pledit.Text:='';
dwjgedit.Text:='';
hwedit.Clear;
end;

end.