main.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

  if not Connected then
    for i:=1 to 8 do
      MainMenu.Items.Items[i].Visible:=false
  else
   begin
    for i:=1 to 8 do
      MainMenu.Items.Items[i].Visible:=true;
   end;
  SystemAffiche.Enabled:=Connected;     //公布栏
  SystemWake.Enabled:=Connected;      //系统提醒
  SystemIssueInfo.Enabled:=Connected;     //信息发布
  SystemLogin.Enabled := not Connected;
  SystemExit.Enabled := Connected;
  SetupUserLog.Enabled:=Connected;
end;

Procedure TFormMain.GongGaoXinXi;
begin
   With Query1 do
      Begin
         Close;
         SQL.Clear;
         SQL.Add('Select * From GG WHERE 1=1');
         SQL.Add(' And ID Not IN (Select ID From GH_GG WHERE BZ=0 AND GH='+''''+GH+''''+')');
         SQL.Add(' And (JBDM<='+IntToStr(JBDM)+'OR JBDM=9)');
         If (JBDM<>0) And (JBDM<>1) THEN //JBDM??0?1???????????????
            Begin
               SQL.Add(' And (OFF_NO_HOME=0 OR OFF_NO_HOME='+IntToStr(JX)+')');
               SQL.Add(' And (JBDM=9 Or JBDM='+IntToStr(JBDM)+')');
            End;
         Open;
         IF Not (Eof And Bof) Then
            Begin
               //Application.CreateForm(TForm_xs,Form_xs);
               //Form_xs.ShowModal;
            End

         Else
            Exit;
      End;
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  sele_nbr:=0;
  JX := -1;  //set to a invalid number
  GH := '';
  JBDM := 999;  //set to max ,so has no right
  roomid:=-1;
  DHHM := '';
  LstJX := TStringList.Create;
  LogTry := 0;
   ShortDateFormat := 'yyyy-mm-dd';
  LongDateFormat := 'yyyy-mm-dd';
  DateSeparator := '-';
  Application.UpdateFormatSettings := false;

  Application.OnHint := ShowHint;
  Application.OnException := MyHandleException;

  FClientInstance := MakeObjectInstance(ClientWndProc);
  FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
  SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));

end;

procedure TFormMain.ShowHint(Sender: TObject);
begin
  StatusBarMain.Panels[1].Text := GetLongHint(Application.Hint);
end;

procedure TFormMain.MyHandleException(Sender: TObject;E: Exception);
begin
  if (E is EDBEditError) then
  begin
    Application.MessageBox('对不起，您输入的内容不符合要求,请重新输入或按ESC取消输入!','提示',MB_OK+MB_ICONERROR);
    Exit;
  end;

  if (E is EDBEngineError) then
    case (E as EDBEngineError).Errors[0].Errorcode of
      eRequiredFieldMissing:
        Application.MessageBox('对不起，您输入的输入项不全,请重新输入!','错误',MB_OK+MB_ICONERROR);
      eKeyViol:
        Application.MessageBox('对不起，您输入的编号或代码重复,请重新输入!'#13#13'如果编号或代码是系统自动生成的，并且出现该提示框的话，请和当地的系统管理员联系。谢谢','错误',MB_OK+MB_ICONERROR);
      eDetailsExist:
        Application.MessageBox('对不起，您要删除的内容中，有其他数据参照该记录,不能删除!','错误',MB_OK+MB_ICONERROR);
      eNotNull:
        Application.MessageBox('对不起，您输入的输入项不能改为空,请重新输入!'#13#13'如果您输入的输入项不是空的，但是出现了该提示框的话，请检查网络是否已经连通或者数据库是否可以连接？','错误',MB_OK+MB_ICONERROR);
      eForeignKey:
        Application.MessageBox('对不起，您要修改或者删除的项目违反参照性约束,不允许修改或删除!如果真的要进行删除的话，请和系统管理员联系!谢谢！','错误',MB_OK+MB_ICONERROR);
    end
  else Application.ShowException(E);
end;

procedure TFormMain.ClientWndProc(var Message: TMessage);
var
  MyDC : hDC;
  Ro,Co: Word;
begin
  with message do
    case Msg of
      WM_ERASEBKGND:
        begin
          MyDC := TWMEraseBkGnd(Message).DC;
          FOR Ro := 0 TO ClientHeight DIV ImageBkGd.Picture.Height DO
            FOR Co := 0 TO ClientWIDTH DIV ImageBkGd.Picture.Width DO
              BitBlt(MyDC, Co*ImageBkGd.Picture.Width, Ro*ImageBkGd.Picture.Height,
                ImageBkGd.Picture.Width, ImageBkGd.Picture.Height,
                ImageBkGd.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
          Result := 1;
{          BitBlt(MyDC,
             Round((FormMain.ClientWidth - ImageLogo.Picture.Width)/2),
             Round((FormMain.ClientHeight - StatusBarMain.Height - ToolBarMain.Height - ImageLogo.Picture.Height)/2),
             ImageLogo.Picture.Width, ImageLogo.Picture.Height,
             ImageLogo.Picture.Bitmap.Canvas.Handle, 0, 0, SRCAND);

          BitBlt(MyDC,
             Round((FormMain.ClientWidth - Imagedh.Picture.Width)/2)+300,
             Round((FormMain.ClientHeight - StatusBarMain.Height - ToolBarMain.Height - ImageLogo.Picture.Height)/2)+50,
             Imagedh.Picture.Width, Imagedh.Picture.Height,
             Imagedh.Picture.Bitmap.Canvas.Handle, 0, 0, MERGECOPY		);
}
        end;
    else
      Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
    end;
end;

//IF EXISTS MDICHILD ,THEN SHOW IT AND RETURN TRUE,ELSE RETURN FALSE
function TFormMain.ExistMDIChild(ChildForm: TForm): Boolean;
var
  i : integer;
begin
  for i := 0 to FormMain.MDIChildCount - 1 do
  begin
    if FormMain.MDIChildren[i] = ChildForm then
    begin
      result := true;
      Exit;
    end;
  end;
  result := false;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  //initial menu
  InitiateControl(false);
  FormMain.Repaint ;
  SpeedButtonloginClick(Nil);
end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if (Application.MessageBox('您是否真的要退出系统吗?'+#13#10+#13#10+'选择“确定”则退出系统'+#13#10+#13#10+'选择“取消”则返回系统','系统提示',MB_OKCANCEL+MB_ICONINFORMATION)=id_ok)  then
   Application.Terminate
 else
   Action := caNone;
end;

procedure TFormMain.SystemCloseClick(Sender: TObject);
begin
  close;
  crypt.UserEnter_Log('登入系统','浏览',0,Gh,'登入窗体');
end;

procedure TFormMain.SpeedButtonLogoutClick(Sender: TObject);
begin

  JX := -1;  //set to a invalid number
  GH := '';
  JBDM := 999;  //set to max ,so has no right
  roomid:=-1;
  DHHM := '';
  StatusBarMain.Refresh;

  InitiateControl(false);
end;

procedure TFormMain.StatusBarMainDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
  ImageIdx,MyMargin: integer;
begin
  if GH = '' then Exit;  //工号为空表示未登录,不显示图标

  ImageIdx := 0;
  MyMargin := 0;
  case Panel.Index of
    0:
    begin
      ImageIdx := 0;
      MyMargin := 7;
    end;
    2: ImageIdx := 1;
    4: ImageIdx := 2 + JBDM;
    6: ImageIdx := 5;
  end;
  ImageListStatus.Draw(StatusBarMain.Canvas,Rect.Left+MyMargin,Rect.Top,ImageIdx,True);

end;


procedure TFormMain.MenuItemRestoreAllClick(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to FormMain.MDIChildCount-1 do// downto 0 do
  begin
    FormMain.MDIChildren[i].WindowState := wsNormal;
  end;
end;

procedure TFormMain.MenuItemMinimizeAllClick(Sender: TObject);
var
  i:integer;
begin
  for i := FormMain.MDIChildCount-1 downto 0 do
  begin
    FormMain.MDIChildren[i].WindowState := wsMinimized;
  end;
end;

procedure TFormMain.MenuItemHelpContentClick(Sender: TObject);
var
  ConfigIni    : TIniFile;
  HelpFileName : String ;
begin
  //获取帮助信息，本帮助信息已经把内容打包成一个chm文件。系统在打开帮助文件的时候
  //主要对该chm文件进行调用.(并且该帮助文件一定命名为VipHelp.Chm)
   ConfigIni := TInifile.Create(ExtractFilePath(application.exename) + '/Config.ini');
   HelpFileName := ConfigIni.ReadString('Help', 'HelpFileName', '');
   if HelpFileName='' then  //没有找到你要的帮助文件，提示是否自己找
   begin

     if Application.MessageBox('对不起，你的帮助文件没有找到，您是否自己找帮助文件？','提示',MB_OKCANCEL+MB_ICONINFORMATION)=ID_CANCEL then 
     begin
         ConfigIni.Free;
         Exit ;
     End;

     if OpenDialogHelpFile.Execute then  //打开帮助文件
         ConfigIni.WriteString('Help', 'HelpFileName',OpenDialogHelpFile.FileName);

   end;

   if OpenDialogHelpFile.fileName <> '' then
   begin
     Try
       ShellExecute(Handle,nil,pchar(OpenDialogHelpFile.FileName),nil,nil,SW_SHOWNORMAL);
     except
       if Application.MessageBox('对不起，你的帮助文件已经无法使用。请发邮件:[e-mail]和福建新东网公司联系！'#13#10+#13#10+'选择“确定”则马上启动邮件程序发送电子邮件给福建新东网公司'+#13#10+#13#10+'选择“取消”则返回系统','提示',MB_OKCANCEL+MB_ICONINFORMATION)=ID_OK then
          ShellExecute(Handle,nil,pchar('mailto:[e-mail]'),nil,nil,SW_SHOWNORMAL);
     end ;
   end;
   //有内容存在，但是无法打开
   ConfigIni.Free;
end;

procedure TFormMain.SpeedButtonloginClick(Sender: TObject);
begin
  //登录窗体调用
  with TFormLogin.Create(Application) do
    try
      ShowModal;
    finally
      Free;
      //GongGaoXinXi
    end;

  //InitiateMenu;

{//各地市使用不同的菜单选项
  with dm_main.qry_share do
  begin
    close;
    sql.clear;
    sql.add('select menucode from setareamenu');
    sql.add('where area='+regcity);
    open;
    while not eof do
    begin
      if self.findcomponent(fieldbyname('menucode').asstring)<>nil  then
         Tmenuitem(self.findcomponent(fieldbyname('menucode').asstring)).visible:=false;
      next;
    end;
  end;
/////////////////////////////////////////////////////////////////////
 }
end;

procedure TFormMain.SpeedButtonlockClick(Sender: TObject);
begin
  JX := -1;  //set to a invalid number
  GH := '';
  JBDM := 999;  //set to max ,so has no right
  roomid:=-1;
  DHHM := '';
  StatusBarMain.Refresh;
//  screenstat(false);
  InitiateControl(false);
end;

procedure TFormMain.SystemExitClick(Sender: TObject);
var
  i : integer;
begin
  JX := -1;  //set to a invalid number
  GH := '';
  JBDM := 999;  //set to max ,so has no right
  roomid:=-1 ;
  DHHM := '';
  StatusBarMain.Refresh;
  InitiateControl(false);
  //modify by h 2002.08.19
  with FormMain do
  for I := MDIChildCount-1 downto 0 do
    if MDIChildren[i].Name <> 'FormMain' then
      MDIChildren[i].Close;
end;

procedure TFormMain.SystemWakeClick(Sender: TObject);
begin
  //信息发布
  Pro_OpenForm(TFrm_SystemWake, Frm_SystemWake, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

//after login success,init menu
procedure TFormMain.InitiateMenu;
var
  i : integer;
begin
  //init all menu can use.
  for i := 0 to FormMain.ComponentCount - 1 do
    begin
      if (FormMain.Components[i] is TMenuItem) then
        (FormMain.Components[i] as TMenuItem).enabled := True;
    end;{for}

  //if system manager or manager then can use all perview
  If JBDM<=0 Then
     Exit;

  //find not pop menu and set it can't use
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From t_d_menuset Where MENU_TOP=''1'' ');
  Query1.Open;

  for i := 0 to FormMain.ComponentCount - 1 do
    begin
      if (FormMain.Components[i] is TMenuItem) then
        If Query1.Locate('MENU_CODE', FormMain.Components[i].Name, []) = True Then
         (FormMain.Components[i] as TMenuItem).enabled := False;
    end;{for}

  //if owner's perview
  with Query1 do
    begin
      close;
      sql.clear;
      sql.add('select ID, MENU_CODE From t_d_menuset Where Upper(MENU_STATE)=''Z'' and ID in(Select ID From t_d_menugrant Where WK_NO='''+GH+''')');
      open;
      //have then find owner's perview and show
      If Query1.IsEmpty Then
        Begin
          Close;
          SQL.Clear;
          SQL.Add('Select ID,Menu_Code From t_d_menuset Where Upper(Menu_State)=''Z'' and ID in (Select OBJECT From t_d_init Where LEVEL_SEQ='+IntToStr(JBDM)+')');
          Open;
        End;

      while not eof do
        begin
          for i := 0 to FormMain.ComponentCount - 1 do
            if FormMain.Components[i].Name = Fields[1].AsString then
              begin
                if (FormMain.Components[i] is TMenuItem) then
                  begin
                    if (FormMain.Components[i] as TMenuItem).Count = 0 then
                      (FormMain.Components[i] as TMenuItem).enabled := True;
                  end;
                break;
              end;{if}
            next;
        end;{while}
    end;{wiht query1}
end;

procedure TFormMain.SystemAfficheClick(Sender: TObject);
begin
  //公告栏
  Pro_OpenForm(TFrm_SystemIssueInfo, Frm_SystemIssueInfo, self);
end;

procedure TFormMain.SystemIssueInfoClick(Sender: TObject);
begin
  //信息发布
  Pro_OpenForm(TFrm_SystemAffiche, Frm_SystemAffiche, self);//  Application.CreateForm(TForm_xs,Form_xs);
end;

procedure TFormMain.SetupPerviewClick(Sender: TObject);
begin
  Pro_OpenForm(TFormRygl, FormRygl, self);
end;
procedure TFormMain.ValidateCustClick(Sender: TObject);
begin
  //show ValidateCust form
  Pro_OpenForm(TFrm_ValidateCust, Frm_ValidateCust, self);
end;

procedure TFormMain.ManagerSMSSendClick(Sender: TObject);
begin
  //短信发送
  Pro_OpenForm(TFrm_ManagerSMSSend, Frm_ManagerSMSSend, self);
end;

procedure TFormMain.ManagerDistributeClick(Sender: TObject);
begin