📄 p_gl.pas

📁 超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit p_GL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls, ComCtrls,
  ToolWin, ImgList, StdCtrls, ActnList, Buttons, XPMenu, SUISideChannel,
  SUIImagePanel, SUIForm, SUIMainMenu, dxsbar;

type
  Tf_GL = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    T6: TToolButton;
    T2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton3: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    ZT: TStatusBar;
    Timer1: TTimer;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    AL: TActionList;
    m_ggmm: TAction;
    m_czygl: TAction;
    m_csh: TAction;
    m_yhzx: TAction;
    m_quit: TAction;
    m_bak: TAction;
    m_help: TAction;
    m_about: TAction;
    Button1: TButton;
    BitBtn1: TBitBtn;
    m_xtrz: TAction;
    sadf1: TMenuItem;
    Panel1: TPanel;
    ToolButton14: TToolButton;
    sdaf1: TMenuItem;
    Button2: TButton;
    Q: TADOQuery;
    XPMenu1: TXPMenu;
    N17: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    M_FFRY: TAction;
    M_BM: TAction;
    m_SP: TAction;
    Action1: TAction;
    m_spfl: TAction;
    m_rk: TAction;
    Button3: TButton;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    m_yh: TAction;
    m_gh: TAction;
    m_ck: TAction;
    m_fk: TAction;
    m_tk: TAction;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    m_kccx: TAction;
    N36: TMenuItem;
    m_rkmx: TAction;
    m_ckmx: TAction;
    m_kcmx: TAction;
    m_ghmx: TAction;
    m_ghqhmx: TAction;
    N18: TMenuItem;
    N19: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    Button4: TButton;
    Open: TOpenDialog;
    dsasdfdas1: TMenuItem;
    Button5: TButton;
    bar: TdxSideBar;
    dxSideBarStore1: TdxSideBarStore;
    dxSideBarStore1Item1: TdxStoredSideItem;
    dxSideBarStore1Item2: TdxStoredSideItem;
    dxSideBarStore1Item3: TdxStoredSideItem;
    dxSideBarStore1Item4: TdxStoredSideItem;
    ImageList2: TImageList;
    m_rkcx: TAction;
    m_ckcx: TAction;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    dxSideBarStore1Item5: TdxStoredSideItem;
    dxSideBarStore1Item6: TdxStoredSideItem;
    dxSideBarStore1Item7: TdxStoredSideItem;
    dxSideBarStore1Item8: TdxStoredSideItem;
    dxSideBarStore1Item9: TdxStoredSideItem;
    dxSideBarStore1Item10: TdxStoredSideItem;
    dxSideBarStore1Item11: TdxStoredSideItem;
    dxSideBarStore1Item12: TdxStoredSideItem;
    dxSideBarStore1Item13: TdxStoredSideItem;
    dxSideBarStore1Item14: TdxStoredSideItem;
    dxSideBarStore1Item15: TdxStoredSideItem;
    dxSideBarStore1Item16: TdxStoredSideItem;
    dxSideBarStore1Item17: TdxStoredSideItem;
    dxSideBarStore1Item18: TdxStoredSideItem;
    dxSideBarStore1Item19: TdxStoredSideItem;
    dxSideBarStore1Item20: TdxStoredSideItem;
    dxSideBarStore1Item21: TdxStoredSideItem;
    dxSideBarStore1Item22: TdxStoredSideItem;
    dxSideBarStore1Item23: TdxStoredSideItem;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N7: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure T6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure T2Click(Sender: TObject);
    procedure m_ggmmExecute(Sender: TObject);
    procedure m_yhzxExecute(Sender: TObject);
    procedure m_quitExecute(Sender: TObject);
    procedure m_czyglExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure m_aboutExecute(Sender: TObject);
    procedure JR_rz(var capt : string);
    procedure FormCreate(Sender: TObject);
    procedure m_xtrzExecute(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure M_FFRYExecute(Sender: TObject);
    procedure M_BMExecute(Sender: TObject);
    procedure m_SPExecute(Sender: TObject);
    procedure m_spflExecute(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    function  jiemi(s:string;key:word):string;
    function  jiami(s:string;key:word):string;
    procedure m_yhExecute(Sender: TObject);
    procedure m_ghExecute(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure m_rkExecute(Sender: TObject);
    procedure m_ckExecute(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure m_tkExecute(Sender: TObject);
    procedure m_fkExecute(Sender: TObject);
    procedure m_kccxExecute(Sender: TObject);
    procedure m_ckcxExecute(Sender: TObject);
    procedure m_rkcxExecute(Sender: TObject);
    procedure m_cshExecute(Sender: TObject);
    procedure barChangeActiveGroup(Sender: TObject);
    procedure barItemClick(Sender: TObject; Item: TdxSideBarItem);
  private
    { Private declarations }
  public
     rzid:longint;    //保存登陆日志ID

    //保存系统功能日志ID
    { Public declarations }
  end;

var
  f_GL: Tf_GL;
  xzzt,sjsp{双击商品},sjkh{双击客户}:boolean;   //用户选择了哪一个数据表格 --'选中状态
  s{保存点击菜单的Caption},psph{记录商品编号},pkhh{记录客户号},pkhm{记录客户名}:string;
  kc00{记录库存信息}:real;
const
  C1 = 99989;
  C2 = 99787;

function user_id(company:string;username:string):pchar;stdcall;external 'system.DLL';
function jc_zch(company:string;username:string;user_id:string;zch:string):bool;stdcall;external 'system.dll';


implementation

uses p_dm, p_password, p_menuinfo,p_csh,p_rkcx,p_ckcx,p_kccx,p_fk,p_tk,p_ck,p_rk,p_gh,p_yh,inifiles,p_klx,p_kll,p_qtyy,P_spxh,p_spfl,p_sp,p_ffry,p_bm,p_xtsz,p_mc,p_bak,p_yhsz,p_xtrz,p_about,p_ggmm,p_user;


{$R *.dfm}

function tf_gl.jiemi(s:string;key:word):string;
var
  I,j: byte;
  c:string;
const
  C1 = 99989;
  C2 = 99787;
begin
  s := copy(S,6,length(s)-5)+'-';
  RESULT:=''; c:='';
  for i:=1 to length(s) do
      if (s[i]<>'-')and(i<>length(s)) then c:=c+s[i] else
      begin
        result:=result+chr(strtoint(c)-421);
        c:='';
      end;
  s:=result;
  for I := 1 to Length(S) do begin
    result[I] := char(byte(S[I]) xor Key);
    Key := (byte(S[I]) + Key) * C1 + C2;
  end;
end;

function tf_gl.jiami(s:string;key:word):string;
var
  I: byte;
  y: string;
const
  C1 = 99989;
  C2 = 99787;
begin
  result:=s;
  for I := 1 to Length(S) do begin
    result[I] := char(byte(S[I]) xor Key);
    Key := (byte(result[I]) + Key) * C1 + C2;
  end;
  y:=result;
  result:='';
  for i := 1 to length (y) do
      result:=result + '-' + inttostr(ord(y[i])+421);
  result:='0320'+result;
end;

procedure tf_gl.JR_rz(var capt:string);
var
 i:longint;
begin
  with dm do
  begin
    T_JRRZ.Filtered:=FALSE;
    t_jrrz.Open;
    //for j:=1 to 1000 do
   // begin
    i:=t_jrrz.RecordCount;
    f_gl.rzid:=i+1;
    DM.CCJRRZ.Parameters[1].Value:=INTTOSTR(I+1);
    DM.CCJRRZ.Parameters[2].Value:=TRIM(USER_NAME);
    DM.CCJRRZ.Parameters[3].Value:=TRIM(CAPT);
    CCJRRZ.ExecProc;
{    t_jrrz.Edit;       
    t_jrrz.Append;
    t_jrrz['rz_id']:=f_gl.rzid;
    t_jrrz['user_name']:=trim(user_name);
    t_jrrz['menu_caption']:=trim(capt);
    t_jrrz['jrrq']:=now;
    t_jrrz['rq']:=datetostr(now);
    t_jrrz.Post;  }
   // end;
    t_jrrz.Close;
  end;   //with .. end
end;

procedure Tf_GL.FormClose(Sender: TObject; var Action: TCloseAction);
var
 y:integer;
begin

  y:=application.MessageBox('您确认退出系统吗？','退出',mb_yesno+mb_iconquestion);
  if y=idno then abort;
  with dm do
  begin
    try
      DM.CCTCRZ.Parameters[1].Value:=f_password.rz_id;
      DM.CCTCRZ.ExecProc;
{     t_jrrz.Open;
     t_jrrz.Filter:='rz_id='''+inttostr(f_password.rz_id)+'''';
     t_jrrz.Filtered:=true;
     t_jrrz.Edit;
     t_jrrz['tcrq']:=now;
     t_jrrz.Post; }
     t_jrrz.Filtered:=false; 
     ADO.Connected:=false;
    except
    end;
  end;
end;

procedure Tf_GL.ToolButton1Click(Sender: TObject);
begin
  f_gl.N12.Click;
end;

procedure Tf_GL.ToolButton6Click(Sender: TObject);
begin
  application.CreateForm(tf_about,f_about);
end;

procedure Tf_GL.T6Click(Sender: TObject);
begin
  f_gl.n6.Click;
end;

procedure Tf_GL.Timer1Timer(Sender: TObject);
begin
  ZT.Panels[1].Text:='请注意系统日期时间：'+formatdatetime('yyyy''年''m''月''d''日  ''hh'':''mm'':''ss',now);
end;

procedure Tf_GL.ToolButton5Click(Sender: TObject);
begin
  f_gl.N3.Click;
end;

procedure Tf_GL.N2Click(Sender: TObject);
begin
  application.CreateForm(tf_user,f_user);
end;

procedure Tf_GL.T2Click(Sender: TObject);
begin
   f_gl.n2.Click;
end;

procedure Tf_GL.m_ggmmExecute(Sender: TObject);
begin
   s:=m_ggmm.Caption;
   f_gl.JR_rz(s);
   application.CreateForm(tf_ggmm,f_ggmm);
end;

procedure Tf_GL.m_yhzxExecute(Sender: TObject);
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -