udate.pas

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

unit Udate;

interface

uses
  SysUtils, Classes, DB, ADODB, MConnect, ObjBrkr,
  messages,Windows,Dialogs,Forms,
  Variants, Graphics, Controls,
  ExtCtrls, RzPanel, RzButton, RzRadChk, StdCtrls, ActnList, ImgList,Registry,imm;

type
  Tfdate = class(TDataModule)
    qrydep: TADOQuery;
    qrydepdeID: TAutoIncField;
    qrydepdename: TStringField;
    qrydepdememo: TStringField;
    qryempty: TADOQuery;
    qryemptyemid: TAutoIncField;
    qryemptyemname: TStringField;
    qryemptyemsex: TBooleanField;
    qryemptydeid: TIntegerField;
    qryemptyemmemo: TStringField;
    qryemptydename: TStringField;
    qryclass: TADOQuery;
    qryclassclid: TAutoIncField;
    qryclassclname: TStringField;
    qryclassclmemo: TStringField;
    qry_gooin: TADOQuery;
    qryview_sell: TADOQuery;
    qrytbsystem: TADOQuery;
    qrytbsystemsyid: TAutoIncField;
    qrytbsystemsyname: TStringField;
    qrytbsystemsyoption: TStringField;
    qrytbsystemsydate: TDateTimeField;
    qrytbsystemsymemo: TStringField;
    qrytbagenda: TADOQuery;
    qrytbagendaagid: TAutoIncField;
    qrytbagendaagname: TStringField;
    qrytbagendaagdate: TDateTimeField;
    qrytbagendaagContents: TStringField;
    spingoogin: TADOStoredProc;
    returpage: TADOStoredProc;
    returncount: TADOStoredProc;
    retuyema: TADOStoredProc;
    dscount: TDataSource;
    qryrktj: TADOQuery;
    dsEMP: TDataSource;
    qryview_kcst: TADOQuery;
    dskcsl: TDataSource;
    qryview_kcstkcname: TStringField;
    qryview_kcstkcsl: TIntegerField;
    qryview_kcstkcunit: TStringField;
    qryview_kcstkcprice: TBCDField;
    qryview_kcstkczj: TBCDField;
    spwpkcsl: TADOStoredProc;
    qry_gooinbwname: TStringField;
    qry_gooinbyid: TAutoIncField;
    qry_gooinbwid: TIntegerField;
    qry_gooinbyquanty: TIntegerField;
    qry_gooinbytotal: TBCDField;
    qry_gooinbyrkdate: TDateTimeField;
    qry_gooinrkid: TIntegerField;
    qry_gooinbymemo: TStringField;
    qry_gooinrkname: TStringField;
    qryrktjbwname: TStringField;
    qryrktjclid: TIntegerField;
    qryrktjbwunit: TStringField;
    qryrktjbwprice: TBCDField;
    qryrktjclname: TStringField;
    qryrktjrkzs: TIntegerField;
    qryrktjtotal: TBCDField;
    qryview_sellbwname: TStringField;
    qryview_sellbwunit: TStringField;
    qryview_sellbwprice: TBCDField;
    qryview_sellseid: TAutoIncField;
    qryview_sellbwid: TIntegerField;
    qryview_sellsedate: TDateTimeField;
    qryview_sellczid: TIntegerField;
    qryview_sellllid: TIntegerField;
    qryview_sellsequanty: TIntegerField;
    qryview_sellsememo: TStringField;
    qryview_sellllname: TStringField;
    qryview_sellczname: TStringField;
    qryview_sellclname: TStringField;
    qryview_sellclid: TIntegerField;
    qrycktj: TADOQuery;
    qrycktjbwname: TStringField;
    qrycktjclid: TIntegerField;
    qrycktjbwunit: TStringField;
    qrycktjbwprice: TBCDField;
    qrycktjclname: TStringField;
    qrycktjckzs: TIntegerField;
    qrycktjtotal: TBCDField;
    spcrtjxx: TADOStoredProc;
    qrytbagendaagcs: TIntegerField;
    qrytbagendaagtime: TDateTimeField;
    qrytbagendaaglb1: TBooleanField;
    qrytbagendaaglb2: TBooleanField;
    qrytbagendaaglb3: TBooleanField;
    qrytbagendaaglb4: TBooleanField;
    qrytbagendaaglb5: TBooleanField;
    qrytbagendaaglb6: TBooleanField;
    qrytbagendaaglb7: TBooleanField;
    qry_gooinclid: TIntegerField;
    qry_gooinclname: TStringField;
    con1: TADOConnection;
    qryview_eabsh: TADOQuery;
    qryview_eabsheaid: TAutoIncField;
    qryview_eabshbwid: TIntegerField;
    qryview_eabsheaAlert: TIntegerField;
    qryview_eabsheabit: TBooleanField;
    qryview_eabsheamemo: TStringField;
    qryview_eabshbwname: TStringField;
    qryview_eabshclid: TIntegerField;
    qryview_eabshclname: TStringField;
    qryview_selldeid: TIntegerField;
    qryview_selldename: TStringField;
    qryrktjnumcount: TIntegerField;
    qryrktjbwid: TAutoIncField;
    qrycktjbwid: TAutoIncField;
    qrycktjnumcount: TIntegerField;
    qryuser: TADOQuery;
    qryuseremid: TAutoIncField;
    qryuseremname: TStringField;
    qryuserempass: TStringField;
    qryuseremsex: TBooleanField;
    qryuserdeid: TIntegerField;
    qryuseremmemo: TStringField;
    qryview_sellsetotal: TBCDField;
    qryemptyempass: TStringField;
    qryemptyemlogin: TBooleanField;
    qryuseremlogin: TBooleanField;
    procedure con1BeforeConnect(Sender: TObject);
    procedure con1AfterDisconnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  SN1='0A0000000000000079C2FC35BB8A2F22A5F199DC8262CD75';
  SN = '0A000000000000006DB8BEF68ECA601EDD84974EE228DCBB';//序列号码
var
  fdate: Tfdate;
  qjbl:string;
  count,page,yema,pagesize,pd,urid:Integer;
  view,findzd,findstr,pxzd,zid,passwords,yhname,fadocd:string; //password为用户的密码  ,yhname为当前登陆的用户的密码
  function returnpage(count,pagesize:Integer):Integer;
  function sqlstr(view,zid,pxid,findstr,findzd:string;yema,pagesize:Integer): string;//分页码
  procedure sqlcount(view,findzd,findstr:string);//返回总的条数
  procedure srfzs(zf:string);//输入法设置
implementation

procedure srfzs(zf:string);
var i:Integer;
  myhkl:hkl;
begin
  if zf<>'' then begin
    if Screen.Imes.Count<>0 then begin
      I:=screen.Imes.indexof(zf);
      if I>=0then
        myhkl:=hkl(screen.Imes.objects[i]);
      activatekeyboardlayout(myhkl,KLF_ACTIVATE);//设置相应的输入法
   end;
  end;
end;

procedure sqlcount(view,findzd,findstr:string);
begin
  with fdate.returncount do begin
    Close;
    Parameters.ParamByName('@findzd').Value:=findzd;
    Parameters.ParamByName('@findstr').Value:=findstr;
    Parameters.ParamByName('@sql').Value:=view;
    ExecProc;
    Active:=True;
  end;
end;
function returnpage(count,pagesize:integer):Integer;
begin
  with fdate.retuyema do begin
    Close;
    Parameters.ParamByName('@count').Value:=count;
    Parameters.ParamByName('@pagesize').Value:=pagesize;
    ExecProc;
  end;
  Result:=fdate.retuyema.Parameters.parambyname('@page').Value;
end;
function sqlstr(view,zid,pxid,findstr,findzd:string;yema,pagesize:Integer): string;
 begin
    with fdate.returpage do begin
      Close;
      Parameters.ParamByName('@sql').Value:=view;
      Parameters.ParamByName('@findzd').Value:=findzd;
      Parameters.ParamByName('@findstr').Value:=findstr;
      Parameters.ParamByName('@zid').Value:=zid;
      Parameters.ParamByName('@sort').Value:=pxid;
      Parameters.ParamByName('@pagesize').Value:=pagesize;
      Parameters.ParamByName('@page').Value:=yema;
    ExecProc;
 end;
 Result:=fdate.returpage.Parameters.parambyname('@sqlstr').Value;
 end;
{$R *.dfm}

procedure Tfdate.con1BeforeConnect(Sender: TObject);
begin
  //con1.Connected:=False;
  //con1.Close;
  //Exit;
end;

procedure Tfdate.con1AfterDisconnect(Sender: TObject);
begin
  Exit;
end;

end.