czyglut.pas

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

unit czyglut;

interface

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

type
  Tczyglfm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    tjbt: TSpeedButton;
    xgedit: TSpeedButton;
    scedit: TSpeedButton;
    closebt: TSpeedButton;
    xmedit: TEdit;
    mmedit: TEdit;
    Label3: TLabel;
    qxbox: TComboBox;
    ADOQuery: TADOQuery;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure tjbtClick(Sender: TObject);
    procedure sceditClick(Sender: TObject);
    procedure closebtClick(Sender: TObject);
    procedure xgeditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czyglfm: Tczyglfm;

implementation

{$R *.dfm}

procedure Tczyglfm.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 czyb');
open;
end;
end;

procedure Tczyglfm.DBGrid1CellClick(Column: TColumn);
begin
with adoquery do
begin
xmedit.Text:=fieldbyname('姓名').asstring;
mmedit.Text:=fieldbyname('密码').asstring;
qxbox.Text:=fieldbyname('权限').AsString;
end;
end;
procedure Tczyglfm.tjbtClick(Sender: TObject);
begin
if xmedit.Text='' then
begin
showmessage('姓名不能为空!');
exit;
end;
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('insert into  czyb (姓名,权限,密码) values(:xm,:qx,:mm)');
Parameters.ParamByName('xm').Value:=trim(xmedit.Text);
Parameters.ParamByName('qx').Value:=trim(qxbox.Text);
Parameters.ParamByName('mm').Value:=trim(mmedit.Text);
execsql;
showmessage('添加成功!');
xmedit.Text:='';
mmedit.Text:='';
end;
except
showmessage('添加失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from czyb');
open;
end;
end;

procedure Tczyglfm.sceditClick(Sender: TObject);
begin
if messagedlg('确定删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('delete from czyb where 姓名=:xm');
Parameters.ParamByName('xm').Value:=trim(xmedit.Text);
execsql;
showmessage('删除成功!');
xmedit.Text:='';
mmedit.Text:='';
end;
except
showmessage('删除失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from czyb');
open;
end;
end;
end;
procedure Tczyglfm.closebtClick(Sender: TObject);
begin
close;
end;

procedure Tczyglfm.xgeditClick(Sender: TObject);
begin
try
with adoquery do
begin
close;
sql.Clear;
sql.Add('update czyb set 权限=:qx,密码=:mm where 姓名=:xm');
Parameters.ParamByName('xm').Value:=trim(xmedit.Text);
Parameters.ParamByName('qx').Value:=trim(qxbox.Text);
Parameters.ParamByName('mm').Value:=trim(mmedit.Text);
execsql;
showmessage('修改成功!');
xmedit.Text:='';
mmedit.Text:='';
end;
 except
showmessage('修改失败!');
end;
with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from czyb');
open;
end;
end;
end.