main.pas

一个会员管理系统delphi源代码,非常好

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, dxBar, dxBarExtItems, cxControls, dxStatusBar,
  ImgList, ExtCtrls;

type
  TfrmMain = class(TForm)
    dxBarSubItemDailySheet: TdxBarSubItem;
    dxBarLargeButtonSecondRegister: TdxBarLargeButton;
    dxBarLargeButtonDoctorArrange: TdxBarLargeButton;
    dxBarLargeButtonRegisterFeetj: TdxBarLargeButton;
    dxBarLargeButtonRegisterPersonNumtj: TdxBarLargeButton;
    dxBarLargeButtonPersonQuery: TdxBarLargeButton;
    dxBarLargeButtonPersonInformationPrint: TdxBarLargeButton;
    dxBarLargeButtonAccountInformationPrint: TdxBarLargeButton;
    dxBarLargeButtonEditPassWord: TdxBarLargeButton;
    dxBarLargeButtonEditCountry: TdxBarLargeButton;
    dxBarLargeButtonClientSystemSets: TdxBarLargeButton;
    dxBarLargeButtonHelpFile: TdxBarLargeButton;
    dxBarLargeButtonInformationFeedback: TdxBarLargeButton;
    dxBarLargeButtonAbout: TdxBarLargeButton;
    dxBarLargeButtonEditSourceFrom: TdxBarLargeButton;
    mmregister: TdxBarLargeButton;
    dxBarLargeButtonTSecondRegister: TdxBarLargeButton;
    ilLargeImages: TImageList;
    dxStatusBar: TdxStatusBar;
    Timer1: TTimer;
    mmquery: TdxBarLargeButton;
    procedure dxBarLargeButtonTQuitSystemClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure mmregisterClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure mmcityClick(Sender: TObject);
    procedure mmBrowseClick(Sender: TObject);
    procedure mmqueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    LoginUserName: string;
  end;

var
  frmMain: TfrmMain;

implementation

uses register, citytree, changepwd, md, browse;

{$R *.dfm}

procedure TfrmMain.dxBarLargeButtonTQuitSystemClick(Sender: TObject);
begin
  if Application.MessageBox('您真的要退出系统?', '询问', MB_YESNO + MB_ICONQuestion) = IDYes then
    close;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  dxStatusBar.Panels[2].Text := '当前时间:' + formatdatetime('yyyy年mm月dd日 dddd', now);
  dxStatusBar.Panels[3].Text := formatdatetime('hh:mm:ss', now);
end;

procedure TfrmMain.mmregisterClick(Sender: TObject);
begin
  if mmregister.AutoGrayScale then
  begin
    mmregister.AutoGrayScale := False;
    frmregister := Tfrmregister.Create(Application);
  end
  else
    frmregister.Show;
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  dxstatusbar.Panels[1].Text := '操作员：' + loginUserName;
end;

procedure TfrmMain.dxBarLargeButton3Click(Sender: TObject);
begin
  frmchangepwd := Tfrmchangepwd.Create(Application);
  frmchangepwd.ShowModal;
end;

procedure TfrmMain.mmcityClick(Sender: TObject);
begin
  if mmcity.AutoGrayScale then
  begin
    mmcity.AutoGrayScale := False;
    frmcitytree := Tfrmcitytree.Create(Application);
  end
  else
    frmcitytree.Show;
end;

procedure TfrmMain.mmBrowseClick(Sender: TObject);
begin
  if mmBrowse.AutoGrayScale then
  begin
    mmBrowse.AutoGrayScale := False;
    frmbrowse := Tfrmbrowse.Create(Application);
  end
  else
    frmBrowse.Show;
end;

procedure TfrmMain.mmqueryClick(Sender: TObject);
begin
  if mmquery.AutoGrayScale then
  begin
    mmquery.AutoGrayScale := False;
    mmquery.Caption := '关闭查询';
    mmquery.LargeImageIndex := 9;
    if mmBrowse.AutoGrayScale then
    begin
      mmBrowse.AutoGrayScale := False;
      frmbrowse := Tfrmbrowse.Create(Application);
    end
    else
      frmBrowse.Show;
    frmBrowse.tv1DBColumn1.Options.Filtering := True;
    frmBrowse.tv1DBColumn2.Options.Filtering := True;
    frmBrowse.tv1DBColumn3.Options.Filtering := True;
    frmBrowse.tv1DBColumn4.Options.Filtering := True;
    frmBrowse.tv1DBColumn5.Options.Filtering := True;
    frmBrowse.tv1DBColumn6.Options.Filtering := True;
    frmBrowse.tv1DBColumn7.Options.Filtering := True;
    frmBrowse.tv1DBColumn8.Options.Filtering := True;
    frmBrowse.tv1DBColumn9.Options.Filtering := True;
    frmBrowse.tv1DBColumn10.Options.Filtering := True;
    frmBrowse.tv1DBColumn11.Options.Filtering := True;
    frmBrowse.tv1DBColumn12.Options.Filtering := True;
    frmBrowse.tv1DBColumn13.Options.Filtering := True;
    frmBrowse.tv1DBColumn14.Options.Filtering := True;
    frmBrowse.tv1DBColumn15.Options.Filtering := True;
    frmBrowse.tv1DBColumn16.Options.Filtering := True;
    frmBrowse.DV1DBCardViewRow1.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow2.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow3.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow4.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow5.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow6.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow7.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow8.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow9.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow10.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow11.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow12.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow13.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow14.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow15.Options.Filtering := true;
    frmBrowse.DV1DBCardViewRow16.Options.Filtering := true;
  end
  else
  begin
    mmquery.AutoGrayScale := True;
    mmquery.Caption := '会员查询';
    mmquery.LargeImageIndex := 8;
    frmBrowse.tv1DBColumn1.Options.Filtering := false;
    frmBrowse.tv1DBColumn2.Options.Filtering := false;
    frmBrowse.tv1DBColumn3.Options.Filtering := false;
    frmBrowse.tv1DBColumn4.Options.Filtering := false;
    frmBrowse.tv1DBColumn5.Options.Filtering := false;
    frmBrowse.tv1DBColumn6.Options.Filtering := false;
    frmBrowse.tv1DBColumn7.Options.Filtering := false;
    frmBrowse.tv1DBColumn8.Options.Filtering := false;
    frmBrowse.tv1DBColumn9.Options.Filtering := false;
    frmBrowse.tv1DBColumn10.Options.Filtering := false;
    frmBrowse.tv1DBColumn11.Options.Filtering := false;
    frmBrowse.tv1DBColumn12.Options.Filtering := false;
    frmBrowse.tv1DBColumn13.Options.Filtering := false;
    frmBrowse.tv1DBColumn14.Options.Filtering := false;
    frmBrowse.tv1DBColumn15.Options.Filtering := false;
    frmBrowse.tv1DBColumn16.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow1.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow2.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow3.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow4.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow5.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow6.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow7.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow8.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow9.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow10.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow11.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow12.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow13.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow14.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow15.Options.Filtering := false;
    frmBrowse.DV1DBCardViewRow16.Options.Filtering := false;
  end;
end;

end.