usysoption.pas

来自「该软件前台用的是DELPHI7后台用的是SQLSERVER2000,用了些第三方」· PAS 代码 · 共 209 行

unit Usysoption;

interface

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

type
  TFsysoption = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton4: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    RzSizePanel1: TRzSizePanel;
    RzPanel1: TRzPanel;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    dsview_eabsh: TDataSource;
    wpname: TDBLookupComboboxEh;
    qrywpb: TADOQuery;
    dswpb: TDataSource;
    wpsl: TRzDBSpinEdit;
    Label1: TLabel;
    lbl2: TLabel;
    actlst1: TActionList;
    ashow: TAction;
    awx: TAction;
    ayx: TAction;
    RzMarqueeStatus1: TRzMarqueeStatus;
    RzClockStatus1: TRzClockStatus;
    lbl3: TLabel;
    RzDBMemo1: TRzDBMemo;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer5: TRzSpacer;
    RzSpacer6: TRzSpacer;
    RzSpacer7: TRzSpacer;
    qrywpbbwid: TAutoIncField;
    qrywpbbwname: TStringField;
    qrywpbclid: TIntegerField;
    qrywpbbwunit: TStringField;
    qrywpbbwprice: TBCDField;
    qrywpbbwmemo: TStringField;
    procedure RzToolButton7Click(Sender: TObject);
    procedure ashowExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure awxExecute(Sender: TObject);
    procedure ayxExecute(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fsysoption: TFsysoption;

implementation

uses Udate, Uclass, Umain, Uxxts, Usrfsz;

{$R *.dfm}

procedure TFsysoption.RzToolButton7Click(Sender: TObject);
begin

  close;
end;

procedure TFsysoption.ashowExecute(Sender: TObject);
begin
  fdate.qryview_eabsh.Close;
  fdate.qryview_eabsh.Open;
  fdate.qryclass.close;
  fdate.qryclass.Open;
  qrywpb.Close;
  qrywpb.Open; 
end;

procedure TFsysoption.FormShow(Sender: TObject);
begin
  fxxts.close;
  ashow.Execute;
  awx.Execute;
  Fmain.Timer1.Enabled:=False;
end;

procedure TFsysoption.awxExecute(Sender: TObject);
begin
  wpname.ReadOnly:=True;
  wpsl.ReadOnly:=True;
  RzDBMemo1.ReadOnly:=true;
end;

procedure TFsysoption.ayxExecute(Sender: TObject);
begin
  wpname.ReadOnly:=false;
  wpsl.ReadOnly:=false;
  RzDBMemo1.ReadOnly:=False;
end;

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

procedure TFsysoption.RzToolButton3Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if fdate.qryview_eabsh.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以删除!',mtError,[mbYes],0);
    Exit;
  end;
  if MessageDlg('您真的要删除该条信息吗?',mtInformation,[mbYes,mbno],0)=idyes then begin
    try fdate.qryview_eabsh.Delete;
      MessageDlg('删除成功!',mtInformation,[mbyes],0);
    except
      fdate.qryview_eabsh.Cancel;
      MessageDlg('删除失败!',mterror,[mbyes],0);
    end;
    fdate.qryview_eabsh.Close;
    fdate.qryview_eabsh.Open;
  end
  else Exit;
end;

procedure TFsysoption.RzToolButton1Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  ayx.Execute;
  wpname.SetFocus;
  fdate.qryview_eabsh.Append;
end;

procedure TFsysoption.RzToolButton2Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  ayx.Execute;
  wpname.SetFocus;
  fdate.qryview_eabsh.Edit;
end;

procedure TFsysoption.RzToolButton4Click(Sender: TObject);
begin
  if wpname.KeyValue=-1 then begin
    MessageDlg('请选择物品名称!',mtError,[mbyes],0);
    wpname.SetFocus;
    Exit;
  end;
  if wpsl.Value<=0 then begin
    MessageDlg('请选择库存物品的最低限!',mtError,[mbyes],0);
    wpsl.SetFocus;
    Exit;
  end;
  wpname.SetFocus;
  if fdate.qryview_eabsh.Modified then begin
    try fdate.qryview_eabsh.Post;
      ShowMessage('信息保存成功!');
    except
      fdate.qryview_eabsh.Cancel;
      ShowMessage('信息保存失败!');
    end;
    awx.Execute;
    fdate.qryview_eabsh.Close;
    fdate.qryview_eabsh.Open;
    Fmain.timer1.Enabled:=True;//调用判断看当前的库存数量是否小于用户的设置量
  end
  else
    Exit;
end;


end.