main.pas.~62~

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~62~ 代码 · 共 234 行

{*******************************************************}
{                                                       }
{       单证打印                                        }
{       主窗体
{       2007-07-01 19:03:28
{       独孤九剑 [e-mail]                       }
{       版权所有 (C) 2007 未来科技                      }
{                                                       }
{*******************************************************}

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeels, cxClasses, dxBar, dxBarExtItems, ImgList, cxGraphics,
  cxControls, dxStatusBar, dxRibbonStatusBar, dxRibbon, cxPC, cxContainer,
  cxEdit, cxTextEdit, cxGroupBox, cxSplitter, ExtCtrls, dxNavBar,
  dxNavBarCollns, dxNavBarBase, jpeg,HardwareInfo;

type
  TFMain = class(TForm)
    cxLookAndFeelController1: TcxLookAndFeelController;
    dxStatusBar1: TdxStatusBar;
    dxBarManager: TdxBarManager;
    dxBarManagerBar1: TdxBar;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton2: TdxBarButton;
    dxBarSeparator1: TdxBarSeparator;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarSeparator2: TdxBarSeparator;
    dxBarButton5: TdxBarButton;
    dxBarSeparator3: TdxBarSeparator;
    dxBarSubItem2: TdxBarSubItem;
    dxBarSubItem4: TdxBarSubItem;
    dxBarSubItem5: TdxBarSubItem;
    dxBarButton1: TdxBarButton;
    dxBarButton6: TdxBarButton;
    dxBarButton7: TdxBarButton;
    dxBarButton8: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    dxBarSeparator4: TdxBarSeparator;
    dxBarSeparator5: TdxBarSeparator;
    dxBarSeparator6: TdxBarSeparator;
    dxBarButton11: TdxBarButton;
    dxBarButton13: TdxBarButton;
    dxBarSeparator7: TdxBarSeparator;
    dxBarSubItem3: TdxBarSubItem;
    dxBarButton16: TdxBarButton;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarGroup1: TdxBarGroup;
    dxBarGroup2: TdxBarGroup;
    dxBarSubItem6: TdxBarSubItem;
    dxBarButton12: TdxBarButton;
    Image1: TImage;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarManagerBar2: TdxBar;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton7: TdxBarLargeButton;
    dxBarLargeButton8: TdxBarLargeButton;
    dxBarLargeButton9: TdxBarLargeButton;
    cxImageList1: TcxImageList;
    dxBarLargeButton10: TdxBarLargeButton;
    dxBarLargeButton11: TdxBarLargeButton;
    dxBarLargeButton12: TdxBarLargeButton;
    dxBarLargeButton13: TdxBarLargeButton;
    dxBarLargeButton14: TdxBarLargeButton;
    procedure FormCreate(Sender: TObject);
    procedure dxBarButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarButton7Click(Sender: TObject);
    procedure dxBarButton12Click(Sender: TObject);
    procedure dxBarButton9Click(Sender: TObject);
    procedure dxBarButton13Click(Sender: TObject);
    procedure dxBarButton11Click(Sender: TObject);
    procedure dxBarButton10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure dxBarButton16Click(Sender: TObject);
    Function DIP(str:string):string;//加密函数
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMain: TFMain;

implementation

uses Fin, Fdybm, Fout, Fkhgl, Fkcgl, Fxstj, Flogin, FYHXG, UDM, Flogo;

{$R *.dfm}

procedure TFMain.dxBarButton10Click(Sender: TObject);
begin
  frmxstj.ShowModal;
end;

procedure TFMain.dxBarButton11Click(Sender: TObject);
begin
  frmkcgl.Dock(cxTabSheet1,BoundsRect);
  frmkcgl.Align:=alClient;
  frmkcgl.Show;
end;

procedure TFMain.dxBarButton12Click(Sender: TObject);
begin
  Frmdybm.ShowModal;
end;

procedure TFMain.dxBarButton13Click(Sender: TObject);
begin
  frmkhgl.ShowModal;
end;

procedure TFMain.dxBarButton16Click(Sender: TObject);
begin
//  Application.MessageBox('汽车配件销售管理系统 1.0' + #13#10#13#10 +
//    '程序设计:任海川 QQ:54729891', '提示', MB_OK + MB_ICONQUESTION);

  frmlogo.cxProgressBar1.Visible :=False;
  frmlogo.cxButton1.Visible := True;
  frmlogo.lblStatus.Visible := False;
  frmlogo.ShowModal;
end;

procedure TFMain.dxBarButton3Click(Sender: TObject);
begin
  frmYHGL.ShowModal;
end;

procedure TFMain.dxBarButton5Click(Sender: TObject);
begin
  close;
end;

procedure TFMain.dxBarButton7Click(Sender: TObject);
begin
  frmIn.Dock(cxTabSheet1,BoundsRect);
  frmin.Align:=alClient;
  frmin.Show;
end;

procedure TFMain.dxBarButton9Click(Sender: TObject);
begin
  frmout.Dock(cxTabSheet1,BoundsRect);
  frmout.Align:=alClient;
  frmout.Show;
end;

procedure TFMain.dxBarLargeButton1Click(Sender: TObject);
begin
  cxPageControl1.HideTabs:=true;
end;

procedure TFMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Application.MessageBox('退出本系统吗？', '提示', MB_OKCANCEL +
    MB_ICONQUESTION) = IDOK then
  begin
    Action:=caFree;
  end
  else begin
    action:=caNone;
  end;
end;

procedure TFMain.FormCreate(Sender: TObject);
begin
  //修改菜单的样式
  dxBarManager.Style := TdxBarManagerStyle(4);

  //调用背景图片
  Image1.Picture.LoadFromFile('.\背景图片\car-2.jpg');
end;

procedure TFMain.FormShow(Sender: TObject);
var
  Info:THardwareInfo;
begin
  //取注册码
  //ShowMessage(DIP(Info.GetIDEDiskSerialNumber));
  with DM.connqry do begin
    Close;
    with SQL do begin
      Clear;
      Add('select * from psn where sn=:p_sn ');
    end;
    Parameters.ParamByName('p_sn').Value:=DIP(Info.GetCPUInfo);
    Open;
    if DM.connqry.RecordCount<=0 then begin
       ShowMessage('非法拷备,请联系软件作者!');
       Application.Terminate;
    end;
  end;
  //登录
  Frmlogin.ShowModal;
end;

Function TFMain.DIP(str:string):string;
var
m,str1:string;
asc,asc1:byte;
i:integer;
begin
m:='\[e-mail]\';            //密匙
for i:=1 to length(str) do
  begin
    asc:=ord(str[i]);
    asc:=asc and $F;
    asc1:=ord(m[i]);
    asc1:=asc1 and $F;
    asc1:=asc xor asc1;
    asc:=ord(str[i]);
    asc:=asc and $F0;
    asc:=asc + asc1;
    str1:=str1 + chr(asc);
  end;
result:=str1;
end;

end.