ubuy.pas

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

unit Ubuy;

interface

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

type
  TFbuy = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzSpacer2: TRzSpacer;
    RzToolButton3: TRzToolButton;
    RzToolButton4: TRzToolButton;
    zys: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    RzSpacer8: TRzSpacer;
    RzToolButton8: TRzToolButton;
    PrintDBGridEh1: TPrintDBGridEh;
    dsBUY: TDataSource;
    RzSpacer10: TRzSpacer;
    RzToolButton10: TRzToolButton;
    RzToolButton11: TRzToolButton;
    RzToolButton12: TRzToolButton;
    RzToolButton13: TRzToolButton;
    RzSpacer13: TRzSpacer;
    actlst1: TActionList;
    ashow: TAction;
    ainsert: TAction;
    aupdate: TAction;
    adel: TAction;
    aprint: TAction;
    afind: TAction;
    awx: TAction;
    ayx: TAction;
    RzStatusPane1: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    RzStatusPane4: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    acsh: TAction;
    zts: TRzSpinner;
    zs: TDBText;
    aopen: TAction;
    RzToolButton5: TRzToolButton;
    RzGroupBox1: TRzGroupBox;
    zdfind: TComboBox;
    RzBitBtn1: TRzBitBtn;
    lbl3: TLabel;
    clname: TDBLookupComboboxEh;
    clname1: TDBLookupComboboxEh;
    lbl6: TLabel;
    lbl7: TLabel;
    spdelgoodin: TADOStoredProc;
    DBGridEh1: TDBGridEh;
    RzGroupBox2: TRzGroupBox;
    rcb1: TRzRadioButton;
    rcb2: TRzRadioButton;
    rcb3: TRzRadioButton;
    rcb4: TRzRadioButton;
    rcb5: TRzRadioButton;
    apxzd: TAction;
    procedure RzToolButton10Click(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure ainsertExecute(Sender: TObject);
    procedure RzToolButton11Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acshExecute(Sender: TObject);
    procedure aopenExecute(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure RzToolButton8Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure afindExecute(Sender: TObject);
    procedure aupdateExecute(Sender: TObject);
    procedure RzToolButton13Click(Sender: TObject);
    procedure awxExecute(Sender: TObject);
    procedure RzToolButton12Click(Sender: TObject);
    procedure ayxExecute(Sender: TObject);
    procedure zdfindCloseUp(Sender: TObject);
    procedure apxzdExecute(Sender: TObject);
    procedure rcb1Click(Sender: TObject);
    procedure rcb2Click(Sender: TObject);
    procedure rcb3Click(Sender: TObject);
    procedure rcb4Click(Sender: TObject);
    procedure rcb5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fbuy: TFbuy;
implementation

uses Udate, Uclass, Uwpbxx, Uempty, Umain, Ubuyrk, Usrfsz;

{$R *.dfm}

procedure TFbuy.RzToolButton10Click(Sender: TObject);
begin
  close;
end;

procedure TFbuy.ashowExecute(Sender: TObject);
begin
   //统计总数
 sqlcount(view,findzd,findstr); //过程调用
 count:=StrToInt(zs.Caption);
 if count=0 then begin
    fdate.qry_gooin.Close;
    zys.Caption:='0/0';
    Exit;
 end
 else
 page:=returnpage(count,pagesize);//得到总的页码数
 aopen.Execute;
end;

procedure TFbuy.ainsertExecute(Sender: TObject);
begin
  pd:=1;
  if count=0 then begin
    fdate.qry_gooin.Close;
    fdate.qry_gooin.Open;
  end;
  fdate.qry_gooin.Append;
  Fbuyrk.ShowModal;
end;

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

procedure TFbuy.FormShow(Sender: TObject);
begin
  zts.value:=35;
  acsh.Execute;
  awx.Execute;
  ashow.Execute;
end;

procedure TFbuy.acshExecute(Sender: TObject);
begin
  pagesize:=zts.value;view:='view_gooin';pxzd:='clname';
  zid:='byid';yema:=1;findzd:='';findstr:='';rcb1.Checked:=true;
  fdate.qryempty.Close;
  fdate.qryempty.Open;
  Fwpbxx.qryview_wpb.Close;
  Fwpbxx.qryview_wpb.open;
  pd:=3//表示不是修改也不是新增 
end;

procedure TFbuy.aopenExecute(Sender: TObject);
begin
  with fdate.qry_gooin do begin
   Close;SQL.Clear;SQL.Add(''+sqlstr(view,zid,pxzd,findstr,findzd,yema,pagesize)+'');
    Open;
 end;
 zys.Caption:=IntToStr(yema)+'/'+IntToStr(page);
 pd:=3;
end;

procedure TFbuy.RzToolButton3Click(Sender: TObject);
begin
  if count=0 then begin
    MessageBeep(0);
    ShowMessage('目前没有信息!');
    Exit;
  end;
  if yema=1 then begin
    MessageBeep(0);
    ShowMessage('目前已经是第一页了！');
    Exit;
  end;
  yema:=1;
  aopen.Execute;
end;

procedure TFbuy.RzToolButton4Click(Sender: TObject);
begin
  if count=0 then begin
    MessageBeep(0);
    ShowMessage('目前没有信息!');
    Exit;
  end;
  if yema=1 then begin
    MessageBeep(0);
    ShowMessage('目前已经是第一页了！');
    Exit;
  end;
  yema:=yema-1;
  aopen.Execute;
end;

procedure TFbuy.RzToolButton6Click(Sender: TObject);
begin
    if count=0 then begin
    MessageBeep(0);
    ShowMessage('目前没有信息!');
    Exit;
  end;
  if yema=page then begin
    MessageBeep(0);
    ShowMessage('目前已经是最后一页了！');
    Exit;
  end;
  yema:=yema+1;
  aopen.Execute;
end;

procedure TFbuy.RzToolButton7Click(Sender: TObject);
begin
  if count=0 then begin
    MessageBeep(0);
    ShowMessage('目前没有信息!');
    Exit;
  end;
  if yema=page then begin
    MessageBeep(0);
    ShowMessage('目前已经是最后一页了！');
    Exit;
  end;
  yema:=page;
  aopen.Execute;
end;

procedure TFbuy.RzToolButton8Click(Sender: TObject);
begin
  if count=0 then begin
    MessageBeep(0);
    ShowMessage('目前没有信息可以打印!');
    Exit;
  end;
  if MessageDlg('您真的要打印信息吗?',mtCustom,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFbuy.RzToolButton5Click(Sender: TObject);
begin
  acsh.Execute;
  ashow.Execute;
end;

procedure TFbuy.RzToolButton2Click(Sender: TObject);
begin
  acsh.Execute;
  ashow.Execute;
  
end;

procedure TFbuy.RzBitBtn1Click(Sender: TObject);
begin
  acsh.Execute;
  sqlcount(view,findzd,findstr); //过程调用
  count:=StrToInt(zs.Caption);
  if count=0 then begin
    MessageDlg('目前没有信息可以查询!',mtInformation,[mbyes],0);
    Exit;
  end;
  if zdfind.ItemIndex=0 then begin
    findzd:='bwname';
    findstr:=Trim(clname1.Text);
  end;
  if zdfind.ItemIndex=1 then begin
    findzd:='clname';
    findstr:=Trim(clname.Text);
  end;
  if zdfind.ItemIndex=-1 then begin
    MessageDlg('请选择查询类型!',mtError,[mbyes],0);
    zdfind.SetFocus;
    Exit;
  end;
  afind.Execute;
end;

procedure TFbuy.afindExecute(Sender: TObject);
begin
  sqlcount(view,findzd,findstr); //过程调用
 count:=StrToInt(zs.Caption);
 if count=0 then begin
    fdate.qry_gooin.Close;
    zys.Caption:='0/0';
    ShowMessage('目前没有满足条件的信息记录');
    Exit;
 end
 else
  page:=returnpage(count,pagesize);//得到总的页码数
  ShowMessage('满足条件的纪录有['+inttostr(page)+']页!共有['+inttostr(count)+']条！');
 aopen.Execute;
end;

procedure TFbuy.aupdateExecute(Sender: TObject);
begin
  ayx.Execute;
  pd:=2;
end;

procedure TFbuy.RzToolButton13Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if count=0 then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以删除！',mtError,[mbyes],0);
    exit;
  end;
  if MessageDlg('您真的要删除此条记录吗?',mtError,[mbYes,mbno],0)=idyes then begin
    with spdelgoodin Do begin
      Close;
      Parameters.ParamByName('@byid').Value:=fdate.qry_gooinbyid.Value;
      ExecProc;
    end;
    MessageBeep(0);
    ShowMessage(spdelgoodin.Parameters.parambyname('@msg').Value);
    ashow.Execute;
  end
  else
    Exit;
end;

procedure TFbuy.awxExecute(Sender: TObject);
begin
  {dblkcbbbyname.ReadOnly:=True;
  //byname.Color:=$00F5C9E8;
  cgdizhi.ReadOnly:=True;
  cgdizhi.Color:=$00F5C9E8;
  buydate.ReadOnly:=True;
  buydate.Color:=$00F5C9E8;
  buymemo.ReadOnly:=True;
  buymemo.Color:=$00F5C9E8;
  bysl.ReadOnly:=True;
  bysl.Color:=$00F5C9E8;}
end;

procedure TFbuy.RzToolButton12Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if count=0 then begin
    MessageDlg('目前没有入库信息可以修改！',mtError,[mbyes],0);
    exit;
  end;
  fdate.qry_gooin.Edit;
  pd:=2;
  Fbuyrk.ShowModal;
end;

procedure TFbuy.ayxExecute(Sender: TObject);
begin
  Fwpbxx.qryview_wpb.Close;
  Fwpbxx.qryview_wpb.Open;
  fdate.qryempty.Close;
  fdate.qryempty.Open;
  //byname.ReadOnly:=false;
 // byname.Color:=clInfoBk;
  {buydate.ReadOnly:=false;
  buydate.Color:=clInfoBk;
  buymemo.ReadOnly:=false;
  buymemo.Color:=clInfoBk;
  bysl.ReadOnly:=false;
  bysl.Color:=clInfoBk;
  cgdizhi.ReadOnly:=false;
  cgdizhi.Color:=clInfoBk; }
end;

procedure TFbuy.zdfindCloseUp(Sender: TObject);
begin
  if zdfind.ItemIndex<>-1 then begin
    Fwpbxx.qryview_wpb.Close;
    Fwpbxx.qryview_wpb.open;
    Fwpbxx.qryclass.Close;
    Fwpbxx.qryclass.Open;
  end;
  if zdfind.ItemIndex=1 then begin
    clname1.Visible:=False;
    clname.Visible:=True;
    end;
  if zdfind.ItemIndex=0 then begin
    clname1.Visible:=True;
    clname.Visible:=False;
  end;
end;

procedure TFbuy.apxzdExecute(Sender: TObject);
begin
  if rcb1.Checked then begin
    pxzd:='clname';Exit;
  end;
  if rcb2.Checked then begin
    pxzd:='bwname';Exit;
  end;
  if rcb3.Checked then begin
    pxzd:='byquanty';Exit;
  end;
  if rcb4.Checked then begin
    pxzd:='byrkdate';Exit;
  end;
  if rcb5.Checked then begin
    pxzd:='bytotal';Exit;
  end;
end;

procedure TFbuy.rcb1Click(Sender: TObject);
begin
  if rcb1.Checked then begin
    apxzd.Execute;
    aopen.Execute;
  end;
end;

procedure TFbuy.rcb2Click(Sender: TObject);
begin
   if rcb2.Checked then begin
    apxzd.Execute;
    aopen.Execute;
  end;
end;

procedure TFbuy.rcb3Click(Sender: TObject);
begin
   if rcb3.Checked then begin
    apxzd.Execute;
    aopen.Execute;
  end;
end;

procedure TFbuy.rcb4Click(Sender: TObject);
begin
   if rcb4.Checked then begin
    apxzd.Execute;
    aopen.Execute;
  end;
end;

procedure TFbuy.rcb5Click(Sender: TObject);
begin
   if rcb5.Checked then begin
    apxzd.Execute;
    aopen.Execute;
  end;
end;

end.