main.pas

这是用DELPHI制作的一个简单的闭路电视收费

  FormMain: TFormMain;

implementation

uses DM, Lookup, NewUserPrint, FeePrint, FeePrint1, RePrintDlg;

{$R *.DFM}


procedure TFormMain.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  LogNumber:=0;
  Loged:=False;
  OldSelectedIndex:=-1;
  OutlookBar.Enabled:=False;
  PageControl.ActivePage:=Tabsheet1;
  OutlookBar.ActivePage:=OutlookBtn2;
  for i:=0 to 2 do
    OutlookBar.OutlookItems[i].Button.Down:=False;
  with Session do
  begin
    ConfigMode:=cmSession;
    if not(IsAlias(MyAlias)) then
      try
        AddStandardAlias(MyAlias,ExtractFilePath(ParamStr(0))+'Database\','PARADOX');
      finally
        ConfigMode:=cmAll;
      end;
  end;
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  ComboID1.Items.Clear;
  LoadOprator(ComboID1);
end;

procedure TFormMain.BtnLogOKClick(Sender: TObject);
var
  i:Integer;
begin
  LogNumber:=LogNumber+1;
  if LogNumber < 3 then
  begin
    if DataM.Login(ComboId1.Text,EdtPwd1.Text) then
    begin
      Loged:=True;
      CurrentUser:=ComboId1.Text;
      CheckPurview(CurrentUser);
      OutlookBar.Enabled:=True;
      OutlookBar.ActivePage:=OutlookBtn2;
      StatusBar.Panels[1].Text:=CurrentUser;
      if CurrentPurview =2 then
      begin
        PageControl.ActivePage:=TabSheet5;
        OutlookList2.Items.Items[3].Selected:=True;
        ActivedOutlookList:=OutlookList2;
        OldSelectedIndex:=3;
      end
      else
      begin
        PageControl.ActivePage:=TabSheet3;
        UserNewEnable(False);
        SysEnable(False);
        for i:=0 to 4 do
          OutlookList2.Items.Items[i].Selected:=False;
      end
    end
    else
    begin
      //Loged:=False;
      ComboID1.SetFocus;
    end;
    ComboId1.Text:='';
    EdtPwd1.Text:='';
  end
  else
    Application.Terminate;
end;
procedure TFormMain.OutlookList1Items4Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  //CloseMark:=True;
  Close;
end;

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  i:Integer;
begin
  if Application.MessageBox('确认要退出吗？','退出系统',MB_OKCANCEL) = IDCANCEL then
  begin
    CanClose:=False;
    if Loged then
    begin
    ActivedOutlookList.Selected.Selected:=False;
    SysEnable(False);
    SysEnable1(False);
    UserNewEnable(False);
    UserUpdateEnable(False);
    MaintainEnable(False);
    LookupEnable(False);
    LookupEnable1(False);
    LookupEnable2(False);
    //ActivedOutlookList.Items.Items[OldSelectedIndex].Selected:=True;
    //if CloseMark then
      //ActivedOutlookList.Items.Items[CloseIndex].Selected:=False;
    end;
  end
  else
  begin
    for i:=0 to DataM.ComponentCount-1 do
    begin
      if DataM.Components[i] is TQuery then
        (DataM.Components[i] as TQuery).Close;
      if DataM.Components[i] is TTable then
        (DataM.Components[i] as TTable).Close;
    end;
  end;
end;

procedure TFormMain.SysEnable(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet2.ControlCount-1 do
    TabSheet2.Controls[i].Enabled:=b;
  Image2.Enabled:=True;
  Image12.Enabled:=True;
end;

procedure TFormMain.SysEnable1(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet6.ControlCount-1 do
    TabSheet6.Controls[i].Enabled:=b;
  Image6.Enabled:=True;
  Image15.Enabled:=True;
end;

procedure TFormMain.UserNewEnable(b: Boolean);
var
  i,j:Integer;
begin
  for i:=0 to TabSheet3.ControlCount-1 do
    TabSheet3.Controls[i].Enabled:=b;
  for j:=0 to GroupBox3.ControlCount-1 do
    GroupBox3.Controls[j].Enabled:=b;
  Image9.Enabled:=True;
end;

procedure TFormMain.UserUpdateEnable(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet4.ControlCount-1 do
    TabSheet4.Controls[i].Enabled:=b;
  for i:=0 to Panel4.ControlCount-1 do
    Panel4.Controls[i].Enabled:=b;
  Image13.Enabled:=True;
end;

procedure TFormMain.MaintainEnable(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet7.ControlCount-1 do
    TabSheet7.Controls[i].Enabled:=b;
  Image3.Enabled:=True;
  Image16.Enabled:=True;
end;

procedure TFormMain.LookupEnable(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet5.ControlCount-1 do
    TabSheet5.Controls[i].Enabled:=b;
  Image5.Enabled:=True;
  Image4.Enabled:=True;
end;

procedure TFormMain.LookupEnable1(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet8.ControlCount-1 do
    TabSheet8.Controls[i].Enabled:=b;
  Image17.Enabled:=True;
  Image7.Enabled:=True;
end;

procedure TFormMain.LookupEnable2(b: Boolean);
var
  i:Integer;
begin
  for i:=0 to TabSheet10.ControlCount-1 do
    TabSheet10.Controls[i].Enabled:=b;
  Image8.Enabled:=True;
end;

procedure TFormMain.OutlookBtn1Click(Sender: TObject);
begin
  if OutlookList1.Selected<>nil then
    OutlookList1.Selected.Selected:=False;
  ActivedOutlookList:=OutlookList1;
  if CurrentPurview = 0 then
  begin
    PageControl.ActivePage:=TabSheet2;
    SysEnable(False);
  end
  else
  begin
    PageControl.ActivePage:=TabSheet6;
    SysEnable1(True);
    EdtID.Text:=CurrentUser;
    EdtID.Enabled:=False;
    Label34.Enabled:=False;
    OutlookList1.Items.Items[2].Selected:=True;
    OldSelectedIndex:=2;
  end;
end;

procedure TFormMain.OutlookList1Items0Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  if CurrentPurview <> 0 then
  begin
    PageControl.ActivePage:=TabSheet6;
    SysEnable1(True);
    EdtID.Text:=CurrentUser;
    EdtID.Enabled:=False;
    Label34.Enabled:=False;
    Item.Selected:=False;
    OutLookList.Items.Items[2].Selected:=True;
    OldSelectedIndex:=2;
    MessageDlg('你的权限不够，不能进行此项操作!',mtConfirmation,[mbOK],0);
  end
  else
  begin
    PageControl.ActivePage:=TabSheet2;
    SysEnable(True);
    ComboID2.Style:=TComboBoxStyle(csDropDown);
    ComboID2.Items.Clear;
    LoadOprator(ComboID2);
  end;
  end;
end;

procedure TFormMain.OutlookList1Items1Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  if CurrentPurview <> 0 then
  begin
    PageControl.ActivePage:=TabSheet6;
    SysEnable1(True);
    EdtID.Text:=CurrentUser;
    EdtID.Enabled:=False;
    Label34.Enabled:=False;
    Item.Selected:=False;
    OutLookList.Items.Items[2].Selected:=True;
    OldSelectedIndex:=2;
    MessageDlg('你的权限不够，不能进行此项操作!',mtConfirmation,[mbOK],0);
  end
  else
  begin
    PageControl.ActivePage:=TabSheet2;
    SysEnable(False);
    Label3.Enabled:=True;
    ComboID2.Enabled:=True;
    ComboID2.Style:=csOwnerDrawFixed;
    ComboID2.Items.Clear;
    LoadOprator(ComboID2);
    BtnSysOK.Enabled:=True;
    BtnSysCancel.Enabled:=True;
  end;
  end;
end;

procedure TFormMain.OutlookList1Items2Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  case CurrentPurview of
    1,2:
    begin
      PageControl.ActivePage:=TabSheet6;
      SysEnable1(True);
      EdtID.Text:=CurrentUser;
      EdtID.Enabled:=False;
      Label34.Enabled:=False;
    end;
    0:
    begin
      PageControl.ActivePage:=TabSheet2;
      SysEnable(True);
      ComboID2.Style:=csOwnerDrawFixed;
      ComboID2.Items.Clear;
      LoadOprator(ComboID2);
    end;
  end;
  end;
end;

procedure TFormMain.OutlookBtn2Click(Sender: TObject);
begin
  if OutlookList2.Selected<>nil then
    OutlookList2.Selected.Selected:=False;
  ActivedOutlookList:=OutlookList2;
  PageControl.ActivePage:=TabSheet3;
  UserNewEnable(False);
end;

procedure TFormMain.OutlookBtn3Click(Sender: TObject);
begin
  if OutlookList3.Selected<>nil then
    OutlookList3.Selected.Selected:=False;
  PageControl.ActivePage:=TabSheet7;
  ActivedOutlookList:=OutlookList3;
  MaintainEnable(False);
  TabSheet7Show(Self)
end;

procedure TFormMain.TabSheet7Show(Sender: TObject);
begin
  EdtBackup.Text:='';
  EdtRecover.Text:='';
  ProgressBar1.Position:=0;
end;

procedure TFormMain.OutlookList2Items0Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  OutlookBtn2.Down:=True;
  if CurrentPurview = 2 then
  begin
    PageControl.ActivePage:=TabSheet5;
    Item.Selected:=False;
    OutlookList.Items.Items[3].Selected:=True;
    OldSelectedIndex:=3;
    MessageDlg('你的权限不够，不能进行此项操作!',mtConfirmation,[mbOK],0);
  end
  else
  begin
    PageControl.ActivePage:=TabSheet3;
    UserNewEnable(True);
    BtnNew4Click(self);
    TabSheet3Show(self);
  end;
  end;
end;

procedure TFormMain.OutlookList2Items1Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  OutlookBtn2.Down:=True;
  if CurrentPurview = 2 then
  begin
    PageControl.ActivePage:=TabSheet5;
    Item.Selected:=False;
    OutlookList.Items.Items[3].Selected:=True;
    OldSelectedIndex:=3;
    MessageDlg('你的权限不够，不能进行此项操作!',mtConfirmation,[mbOK],0);
  end
  else
  begin
    PageControl.ActivePage:=TabSheet8;
    LookupEnable1(True);
    TabSheet8Show(self);
  end;
  end;
end;

procedure TFormMain.OutlookList2Items2Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
var
  i:Integer;
begin
  if Item.Index <> OldSelectedIndex then
  begin
  ActivedOutlookList:=OutlookList;
  OldSelectedIndex:=Item.Index;
  OutlookBtn2.Down:=True;
  if CurrentPurview = 2 then
  begin
    PageControl.ActivePage:=TabSheet5;
    Item.Selected:=False;
    OutlookList.Items.Items[3].Selected:=True;
    OldSelectedIndex:=3;
    MessageDlg('你的权限不够，不能进行此项操作!',mtConfirmation,[mbOK],0);
  end
  else
  begin
    DataM.QueryUser.Close;
    DataM.TableAgent.Close;
    PageControl.ActivePage:=TabSheet4;
    UserUpdateEnable(False);
    Panel4.Enabled:=True;
    BtnModify2.Enabled:=True;
    for i:=0 to Panel4.ControlCount-1 do
      Panel4.Controls[i].Enabled:=True;
    RBtnUpdate1.Checked:=True;
    EdtUpdate2.Enabled:=False;
    EdtUpdate3.Enabled:=False;
  end;
  end;
end;

procedure TFormMain.OutlookList2Items3Click(
  OutlookList: TfcCustomOutlookList; Item: TfcOutlookListItem);
begin
  if Item.Index <> OldSelectedIndex then
  begin
    ActivedOutlookList:=OutlookList;
    OldSelectedIndex:=Item.Index;
    PageControl.ActivePage:=TabSheet5;
    LookupEnable(True);
    TabSheet5Show(self);
  end;
end;

procedure TFormMain.TabSheet8Show(Sender: TObject);
begin
  RadioButton1.Checked:=True;
  LookupT1.Enabled:=True;
  LookupT2.Enabled:=False;
  LookupT3.Enabled:=False;
  LookupT1.Text:='';
  LookupT2.Text:='';
  LookupT3.Text:='';
end;