upost.pas

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

unit upost;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, RzSplit, PrnDbgeh, Grids, DBGridEh, RzButton,
  DB, ADODB, RzStatus, ActnList, StdCtrls, Mask, DBCtrlsEh, RzEdit,
  DBLookupEh, RzCmboBx, RzDBCmbo, RzLstBox, RzDBList, DBCtrls, DBGrids,
  RzDBGrid;

type
  TFpost = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzSizePanel1: TRzSizePanel;
    RzPanel1: TRzPanel;
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzToolButton3: TRzToolButton;
    RzToolButton4: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzSpacer5: TRzSpacer;
    RzSpacer6: TRzSpacer;
    RzToolButton6: TRzToolButton;
    RzSpacer7: TRzSpacer;
    RzToolButton7: TRzToolButton;
    qryybqh: TADOQuery;
    qryybqhyqid: TAutoIncField;
    qryybqhyqsf: TStringField;
    qryybqhyqdq: TStringField;
    qryybqhyqyb: TStringField;
    qryybqhyqqh: TStringField;
    ds1: TDataSource;
    zts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    actlst1: TActionList;
    actshow: TAction;
    qrydq: TADOQuery;
    qrydqyqsf: TStringField;
    ds2: TDataSource;
    DBGridEh2: TDBGridEh;
    RzSizePanel2: TRzSizePanel;
    RzPanel2: TRzPanel;
    lbl1: TLabel;
    RzBitBtn1: TRzBitBtn;
    strfind: TEdit;
    procedure RzToolButton7Click(Sender: TObject);
    procedure actshowExecute(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzToolButton6Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure RzToolButton4Click(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure DBGridEh2DblClick(Sender: TObject);
    procedure strfindKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fpost: TFpost;

implementation

uses Udate, Umain;

{$R *.dfm}

procedure TFpost.RzToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TFpost.actshowExecute(Sender: TObject);
begin
  strfind.Clear;
  qryybqh.close;
  qryybqh.SQL.Clear;
  qryybqh.SQL.Add('select * from tbybqh');
  qryybqh.Open;
  qryybqh.Open;
  qrydq.close;
  qrydq.Open;
  zts.Caption:='目前共有信息['+''+inttostr(qryybqh.RecordCount)+''+']条!';
end;

procedure TFpost.RzToolButton1Click(Sender: TObject);
begin
  actshow.Execute;
end;

procedure TFpost.FormShow(Sender: TObject);
begin
  actshow.Execute;
end;

procedure TFpost.RzToolButton6Click(Sender: TObject);
begin
  if qryybqh.RecordCount=0 then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以打印!',mtError,[mbyes],0);
    exit;
  end;
  if MessageDlg('您真的要打印吗?',mtInformation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFpost.RzToolButton2Click(Sender: TObject);
begin
  qryybqh.First;
end;

procedure TFpost.RzToolButton3Click(Sender: TObject);
begin
  qryybqh.Prior;
end;

procedure TFpost.RzToolButton4Click(Sender: TObject);
begin
  qryybqh.Next;
end;

procedure TFpost.RzToolButton5Click(Sender: TObject);
begin
  qryybqh.Last;
end;

procedure TFpost.RzBitBtn1Click(Sender: TObject);
begin
  if strfind.Text='' then begin
      with qryybqh do begin
      Close;SQL.Clear;SQL.Add('select * from tbybqh');
      Open;
    end;
  end;
 if strfind.Text<>'' then begin
   with qryybqh do begin
     Close;SQL.Clear;SQL.Add('select * from tbybqh where yqqh like '''+strfind.Text+''' or yqyb like '''+strfind.Text+'''');
     Open;
   end;
 end;
  zts.Caption:='满足条件的纪录有['+''+inttostr(qryybqh.RecordCount)+''+']条!';
end;

procedure TFpost.DBGridEh2DblClick(Sender: TObject);
begin
  with qryybqh do begin
      Close;SQL.Clear;SQL.Add('select * from tbybqh where yqsf='''+qrydqyqsf.Value+'''');
      Open;
    end;
  zts.Caption:='满足条件的纪录有['+''+inttostr(qryybqh.RecordCount)+''+']条!';
end;

procedure TFpost.strfindKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in['0'..'9','.',#8]) then
    begin
      key:=#0;
      MessageBeep(1);
    end;
end;

end.