usell.pas

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

unit Usell;

interface

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

type
  TFsell = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    PrintDBGridEh1: TPrintDBGridEh;
    dssell: TDataSource;
    actlst1: TActionList;
    ashow: TAction;
    adel: TAction;
    aprint: TAction;
    afind: TAction;
    acsh: TAction;
    aopen: TAction;
    RzToolButton11: TRzToolButton;
    RzToolButton12: TRzToolButton;
    RzToolButton13: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton4: TRzToolButton;
    zys: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    RzToolButton8: TRzToolButton;
    RzToolButton10: TRzToolButton;
    RzSpacer8: TRzSpacer;
    RzSpacer9: TRzSpacer;
    RzSpacer10: TRzSpacer;
    RzSpacer13: TRzSpacer;
    RzStatusPane1: TRzStatusPane;
    zs: TDBText;
    RzStatusPane2: TRzStatusPane;
    zts: TRzSpinner;
    RzStatusPane3: TRzStatusPane;
    RzStatusPane4: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzSizePanel2: TRzSizePanel;
    RzPanel1: TRzPanel;
    zdfind: TComboBox;
    lbl3: TLabel;
    strfind: TLabeledEdit;
    RzBitBtn1: TRzBitBtn;
    DBGridEh1: TDBGridEh;
    RzPanel2: TRzPanel;
    rcb1: TRzRadioButton;
    rcb2: TRzRadioButton;
    rcb3: TRzRadioButton;
    rcb4: TRzRadioButton;
    rcb5: TRzRadioButton;
    apxzd: TAction;
    procedure RzToolButton10Click(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure afindExecute(Sender: TObject);
    procedure acshExecute(Sender: TObject);
    procedure aopenExecute(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzToolButton13Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure RzToolButton8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzToolButton11Click(Sender: TObject);
    procedure RzToolButton12Click(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
  Fsell: TFsell;
  //pd:Integer;

implementation

uses Udate, Uwpbxx, Umain, Uselllr, Usrfsz;

{$R *.dfm}

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

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

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

procedure TFsell.acshExecute(Sender: TObject);
begin
   pagesize:=zts.value;view:='view_sell';pxzd:='clname';
  zid:='seid';yema:=1;findzd:='';findstr:=''; rcb1.Checked:=true;
  strfind.Clear;
  pd:=3;//不是修改也不是新增
end;

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

procedure TFsell.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
    findzd:='llname';
  if zdfind.ItemIndex=1 then
    findzd:='bwname';
  if zdfind.itemindex=2 then
    findzd:='clname';
  if zdfind.ItemIndex=-1 then begin
    MessageDlg('请选择查询类型!',mtError,[mbyes],0);
    zdfind.SetFocus;
    Exit;
  end;
  findstr:=Trim(strfind.Text);
  ShowMessage(''+findzd+'');
  afind.Execute;
end;

procedure TFsell.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;
 try fdate.qryview_sell.Delete;
  aopen.Execute;
  ShowMessage('删除成功!');
 except
   fdate.qryview_sell.Cancel;
   ShowMessage('删除失败!');
   Exit;
 end;
end;

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

procedure TFsell.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 TFsell.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 TFsell.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 TFsell.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 TFsell.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 TFsell.FormShow(Sender: TObject);
begin
   zts.value:=35;
  acsh.Execute;
  ashow.Execute;
end;

procedure TFsell.RzToolButton11Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if count=0 then begin
    fdate.qryview_sell.Close;
    fdate.qryview_sell.Open;
  end;
  pd:=1;
  fdate.qryview_sell.Append;
  Fselllr.ShowModal;
end;

procedure TFsell.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;
  pd:=2;
  fdate.qryview_sell.Edit;
  Fselllr.ShowModal;
end;

procedure TFsell.zdfindCloseUp(Sender: TObject);
begin
  strfind.Clear;
end;


procedure TFsell.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:='sequanty';Exit;
  end;
  if rcb4.Checked then begin
    pxzd:='sedate';Exit;
  end;
  if rcb5.Checked then begin
    pxzd:='llname';Exit;
  end;
end;

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

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

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

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

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

end.