main.pas

提供产品的售后管理,客户资料管理,维修服务管理等功能

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, XPMenu, ImgList, TFlatTitlebarUnit,
  ExtCtrls, TFlatPanelUnit, TFlatButtonUnit, StdCtrls, TFlatEditUnit,
  TFlatComboBoxUnit, Grids, DB, ADODB, TFlatCheckBoxUnit,shellapi,
  TFlatHintUnit,ComObj;

type
  TFrmMain = class(TForm)
    XPMenu1: TXPMenu;
    MainMenu1: TMainMenu;
    MainTitle: TFlatTitlebar;
    MenuSys: TMenuItem;
    SubCaoZuoRen: TMenuItem;
    SubSystemSetup: TMenuItem;
    N1: TMenuItem;
    SubModifyCaoZuo: TMenuItem;
    N2: TMenuItem;
    SubExit: TMenuItem;
    MenuMgr: TMenuItem;
    SubEnter: TMenuItem;
    SubQueryPT: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    SubQueryTB: TMenuItem;
    N5: TMenuItem;
    SubQueryAll: TMenuItem;
    MenuHelp: TMenuItem;
    SubHelp: TMenuItem;
    SubRegister: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    SubAbout: TMenuItem;
    SubLoginOff: TMenuItem;
    N8: TMenuItem;
    ImageList1: TImageList;
    BtnExit2: TFlatButton;
    SubZZ: TMenuItem;
    PanelTop: TFlatPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    TBtnLogin: TToolButton;
    TBtnLoginOff: TToolButton;
    TBntExit: TToolButton;
    ToolBar3: TToolBar;
    TBtnEnter: TToolButton;
    TBtnPT: TToolButton;
    TBtnTS: TToolButton;
    TBtnAll: TToolButton;
    l3: TToolButton;
    TBtnSysTemSetup: TToolButton;
    PanelBottom: TFlatPanel;
    PanelClient: TFlatPanel;
    MenuSys1: TMenuItem;
    SubLogin: TMenuItem;
    SubExit1: TMenuItem;
    TBtnSys1: TToolButton;
    TBtnSys2: TToolButton;
    TBtnMgr: TToolButton;
    TBtnHelp: TToolButton;
    N9: TMenuItem;
    l2: TToolButton;
    l1: TToolButton;
    PanelLogin: TFlatPanel;
    PanelLevel: TFlatPanel;
    PanelDateTime: TFlatPanel;
    TBtnDataMgr: TToolButton;
    MenuDataMgr: TMenuItem;
    BtnDelAll: TMenuItem;
    N10: TMenuItem;
    SubOverRun: TMenuItem;
    N11: TMenuItem;
    SubCompress: TMenuItem;
    PanelData: TPanel;
    ListView1: TListView;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    S1: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Panel2: TPanel;
    lblAmount: TLabel;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    BtnOverRun: TToolButton;
    ToolButton1: TToolButton;
    BtnWGB: TToolButton;
    lblVersion: TLabel;
    LblRegInfo: TLabel;
    lblsoft: TLabel;
    lblAuthor: TLabel;
    lblMail: TLabel;
    LblQQ: TLabel;
    FlatHint1: TFlatHint;
    Label1: TLabel;
    CmbSearchName: TFlatComboBox;
    CmbOperator: TFlatComboBox;
    EditTJ: TFlatEdit;
    BtnSearch: TFlatButton;
    BtnAdd: TFlatButton;
    BtnDel: TFlatButton;
    BtnView: TFlatButton;
    procedure SubExitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SubRegisterClick(Sender: TObject);
    procedure SubLoginClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TBtnLoginOffClick(Sender: TObject);
    procedure SubModifyCaoZuoClick(Sender: TObject);
    procedure SubAboutClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SubCaoZuoRenClick(Sender: TObject);
    procedure SubSystemSetupClick(Sender: TObject);
    procedure SubEnterClick(Sender: TObject);
    procedure TBtnAllClick(Sender: TObject);
    procedure TBtnPTClick(Sender: TObject);
    procedure TBtnTSClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BtnSearchClick(Sender: TObject);
    procedure CmbSearchNameChange(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure SubZZClick(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure SubHelpClick(Sender: TObject);
    procedure BtnDelAllClick(Sender: TObject);
    procedure SubOverRunClick(Sender: TObject);
    procedure SubCompressClick(Sender: TObject);
  private
    { Private declarations }
    procedure OgrSetup;
    procedure DBConnection;
    procedure ReadDate;
    Procedure CheckRegCode;
    Procedure DelAllData;
    procedure WriteDefUser;
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;
  TempSearchName:string;   //用来转换查询查

implementation

uses Login, About, UserSetup, SystemSetup, InputInfo,Reg,global,jm,report;

{$R *.dfm}

procedure TFrmMain.SubExitClick(Sender: TObject);
begin
 close;
end;

procedure TFrmMain.FormActivate(Sender: TObject);
begin
XpMenu1.Active :=True;
if Checkreg=0 then
  LblRegInfo.Caption :='软件尚未注册'
  else
    LblRegInfo.Caption :=tempInc;  
end;

procedure TFrmMain.SubRegisterClick(Sender: TObject);
begin
  paneldata.Visible :=False;
  ADOConnection1.Close;
  lblAmount.Caption :='';
  FrmRegistry.showmodal;
end;

procedure TFrmMain.SubLoginClick(Sender: TObject);
begin
  frmLogin.ShowModal ;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  OgrSetup;
  PanelDateTime.Caption :='';
  CheckRegCode;  //检测是否注册的过程
  ADOConnection1.Close;
  listview1.Columns[0].Width :=0;
end;

procedure TFrmMain.TBtnLoginOffClick(Sender: TObject);
begin
if messagebox(Handle,Pchar('你确认注销当前用户登录吗？'),PChar('注销确认'),MB_YESNO+MB_ICONQUESTION)=IDYES then OgrSetup;
end;

procedure TFrmMain.OgrSetup;
begin
   TBtnLoginOff.Visible:=False;
   PanelLogin.Caption :='尚未登录';
   PanelLevel.Caption :='无操作权限';
   TBtnSys1.Visible :=True;
   TBtnSys2.Visible :=False;
   TBtnMgr.Visible :=False;
   TBtnDataMgr.Visible :=False;
   TBtnLogin.Visible :=True;
   TBtnLoginOff.Visible :=False;
   ToolBar3.Visible :=False;
   Paneltop.Height :=60;
end;

procedure TFrmMain.SubModifyCaoZuoClick(Sender: TObject);
begin
  paneldata.Visible :=False;
  ADOConnection1.Close;
  lblAmount.Caption :='';
  FrmLogin.ShowModal ;
end;

procedure TFrmMain.SubAboutClick(Sender: TObject);
begin
  paneldata.Visible :=False;
  ADOConnection1.Close;
  lblAmount.Caption :='';
  frmabout.showmodal;
end;

procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagebox(Handle,Pchar('真的要退出系统吗？'),PChar('退出确认'),MB_YESNO+MB_ICONQUESTION)=IDNO then
  canclose:=False;
end;

procedure TFrmMain.SubCaoZuoRenClick(Sender: TObject);
begin
  paneldata.Visible :=False;
  ADOConnection1.Close;
  lblAmount.Caption :='';
  frmUserSetup.showmodal;
end;

procedure TFrmMain.SubSystemSetupClick(Sender: TObject);
begin
paneldata.Visible :=False;
ADOConnection1.Close;
lblAmount.Caption :='';
FrmSystemSetup.showmodal;
end;

procedure TFrmMain.SubEnterClick(Sender: TObject);
begin
  paneldata.Visible :=False;
  ADOConnection1.Close;
  lblAmount.Caption :='';
  frmInputinfo.Clear;
  frmInputInfo.BtnAdd.Visible :=True;
  frmInputInfo.BtnModify.Visible :=False;
  frmInputInfo.showmodal;

end;

procedure TFrmMain.TBtnAllClick(Sender: TObject);
begin
PanelData.Visible :=True;
DBConnection;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select * from Userinfo order by id';
ADOQuery1.Open ;
Listview1.Clear;
  while not ADOQuery1.Eof do
    begin
       ReadDate;
       ADOQuery1.Next;
  end;
ADOQuery1.Close;
lblAmount.Caption :='共有 ['+inttoStr(listview1.Items.Count)+'] 项' ;
end;

procedure TFrmMain.DBConnection;
var
  DataPath:string;
begin
  if ADOConnection1.Connected then ADOConnection1.Close;
  //防止被重复打开而导到数据连接错误

  DataPath:=ExtractFilePath(Application.ExeName)+'Data\mgr.db';
  {登录加密的数据库}

  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataPath+';

  ADOConnection1.Open();

end;

procedure TFrmMain.TBtnPTClick(Sender: TObject);
begin
PanelData.Visible :=True;
DBConnection;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select * from Userinfo order by id';
ADOQuery1.Open ;
Listview1.Clear;
 while not ADOQuery1.Eof do
    begin
    if ADOQuery1.FieldValues['TB']=0 then
      begin
        ReadDate;
      end;
  ADOQuery1.Next;
  end;
  ADOQuery1.Close;
  lblAmount.Caption :='共有 ['+inttoStr(listview1.Items.Count)+'] 项' ;
end;

procedure TFrmMain.TBtnTSClick(Sender: TObject);
begin
PanelData.Visible :=True;
DBConnection;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='select * from Userinfo order by id';
ADOQuery1.Open ;
Listview1.Clear;
 while not ADOQuery1.Eof do
    begin
    if ADOQuery1.FieldValues['TB']=1 then
      begin
        ReadDate;
      end;
  ADOQuery1.Next;
  end;
ADOQuery1.Close;
lblAmount.Caption :='共有 ['+inttoStr(listview1.Items.Count)+'] 项' ;
end;

procedure TFrmMain.ReadDate;
begin