uwpbxx.pas

小型企业物品管理系统,DELPHI源码+ACCESS数据库

unit Uwpbxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, RzGroupBar, ExtCtrls, PrnDbgeh, Grids, DBGridEh,
  RzButton, RzSplit, DB, ADODB, StdCtrls, Mask, DBCtrls, ActnList, RzEdit,
  RzDBEdit, RzDBSpin, DBCtrlsEh, RzCmboBx, RzDBCmbo, DBLookupEh, PrViewEh,
  RzStatus;

type
  TFwpbxx = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    RzToolButton8: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer5: TRzSpacer;
    RzSpacer6: TRzSpacer;
    RzSpacer7: TRzSpacer;
    qryview_wpb: TADOQuery;
    qryview_wpbbwid: TAutoIncField;
    qryview_wpbbwname: TStringField;
    qryview_wpbclid: TIntegerField;
    qryview_wpbbwunit: TStringField;
    qryview_wpbbwprice: TBCDField;
    qryview_wpbbwmemo: TStringField;
    qryview_wpbclname: TStringField;
    dsview_wpb: TDataSource;
    actlst1: TActionList;
    ashow: TAction;
    ainsert: TAction;
    adel: TAction;
    aprint: TAction;
    RzSizePanel2: TRzSizePanel;
    RzPanel1: TRzPanel;
    lbl6: TLabel;
    cbb1: TComboBox;
    lbl7: TLabel;
    RzBitBtn1: TRzBitBtn;
    edt1: TComboBox;
    qryclass: TADOQuery;
    dsclass: TDataSource;
    qryclassclid: TAutoIncField;
    qryclassclname: TStringField;
    qryclassclmemo: TStringField;
    clname: TDBLookupComboboxEh;
    zts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    procedure ashowExecute(Sender: TObject);
    procedure RzToolButton8Click(Sender: TObject);
    procedure aprintExecute(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure ainsertExecute(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure adelExecute(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure cbb1CloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fwpbxx: TFwpbxx;

implementation

uses Udate, Uclass, Umain, Uwplr, Usrfsz;

{$R *.dfm}

procedure TFwpbxx.ashowExecute(Sender: TObject);
begin
  pd:=3;//不是新增也不是修改
  qryclass.close;
  qryclass.Open;
  with qryview_wpb do begin
    Close;SQL.Clear;SQL.Add('select * from view_wpb');
    Open;
  end;
  cbb1.ItemIndex:=-1;
  edt1.Visible:=True;
  clname.Visible:=False;
  edt1.Clear;
  zts.Caption:='目前共有物品信息['+''+inttostr(qryview_wpb.RecordCount)+''+']条！';
end;

procedure tfwpbxx.RzToolButton5Click(sender:tobject);
begin
 ashow.Execute;
end;

procedure TFwpbxx.RzToolButton2Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if qryview_wpb.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以修改！',mtError,[mbyes],0);
    Exit;
  end;
  pd:=2;//修改
  qryview_wpb.Edit;
  Fwplr.ShowModal;
end;

procedure TFwpbxx.adelExecute(Sender: TObject);
begin
  if qryview_wpb.IsEmpty then begin
    MessageDlg('目前没有物品信息可以删除!',mtError,[mbyes],0);
    Exit;
  end;
  if MessageDlg('真的要删除该条物品信息吗?',mtError,[mbYes,mbno],0)=idyes then begin
    try qryview_wpb.Delete;
      ShowMessage('删除成功!');
    except
      qryview_wpb.Cancel;
      MessageDlg('该条物品信息不能删除!',mtError,[mbyes],0);
    end;
  end
  else
    Exit;
end;

procedure TFwpbxx.RzToolButton3Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  adel.Execute;
end;

procedure TFwpbxx.RzToolButton8Click(Sender: TObject);
begin
  close;
end;




procedure TFwpbxx.aprintExecute(Sender: TObject);
begin
  if qryview_wpb.IsEmpty then begin
    MessageDlg('目前没有信息可以打印!',mtError,[mbyes],0);
    Exit;
  end;
  if MessageDlg('真的要打印物品信息吗?',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFwpbxx.RzToolButton6Click(Sender: TObject);
begin
  aprint.Execute;
end;

procedure TFwpbxx.ainsertExecute(Sender: TObject);
begin
  pd:=1;
  fdate.qryclass.close;
  fdate.qryclass.Open;
  qryview_wpb.Append;
  Fwplr.ShowModal;
end;

procedure TFwpbxx.RzToolButton1Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  ainsert.Execute;
end;

procedure TFwpbxx.FormShow(Sender: TObject);
begin
  fdate.qryclass.Close;
  fdate.qryclass.Open;
  ashow.Execute;
end;

procedure TFwpbxx.RzBitBtn1Click(Sender: TObject);
begin
  {if edt1.Text='' then begin
    with qryview_wpb do begin
      Close;SQL.Clear;SQL.Add('select * from view_wpb');
      Open;
    end;
    Exit;
  end; }
  if cbb1.ItemIndex=0 then begin
    with qryview_wpb do begin
      Close;SQL.Clear;SQL.Add('select * from view_wpb where bwname='''+trim(edt1.Text)+'''');
      Open;
    end;
  end;
  if cbb1.ItemIndex=1 then begin
    with qryview_wpb do begin
      Close;SQL.Clear;SQL.Add('select * from view_wpb where clid='''+inttostr(clname.KeyValue)+'''');
      Open;
    end;
  end;
  if cbb1.ItemIndex=2 then begin
    with qryview_wpb do begin
      Close;SQL.Clear;SQL.Add('select * from view_wpb where bwunit='''+trim(edt1.Text)+'''');
      Open;
    end;
  end;
   zts.Caption:='目前满足条件的物品信息共有['+''+inttostr(qryview_wpb.RecordCount)+''+']条！';
end;

procedure TFwpbxx.cbb1CloseUp(Sender: TObject);
begin
  if cbb1.ItemIndex=0 then begin
    clname.Visible:=False;
    edt1.Visible:=True;
    edt1.Clear;
    edt1.SetFocus;
   end;
  if cbb1.ItemIndex=1 then begin
    clname.Visible:=True;
    edt1.Visible:=False;
    clname.SetFocus;
  end;
  if cbb1.ItemIndex=2 then begin
    clname.Visible:=False;
    edt1.Visible:=True;
    edt1.Clear;
    edt1.SetFocus;
  end;
end;

end.