main.pas

汽配前台收费,一个具有详细功能的小系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ExtCtrls, Buttons, ToolWin, jpeg, OleCtnrs, StdCtrls,
  Db, DBTables;

type
  Tfrm_main = class(TForm)
    mu_main: TMainMenu;
    mu_yw_gl: TMenuItem;
    mu_yw_cx: TMenuItem;
    mu_std_info: TMenuItem;
    mu_sys_wh: TMenuItem;
    mu_hlp: TMenuItem;
    mu_hlp_about: TMenuItem;
    mu_yw_gl_dj: TMenuItem;
    mu_std_info_gs: TMenuItem;
    mu_sys_pass: TMenuItem;
    mu_sys_log: TMenuItem;
    N1: TMenuItem;
    mu_sys_exit: TMenuItem;
    mu_yw_gl_pj: TMenuItem;
    mu_yw_gl_gs: TMenuItem;
    N2: TMenuItem;
    mu_yw_gl_js: TMenuItem;
    pe_image: TPanel;
    Image1: TImage;
    cb_operation: TCoolBar;
    ToolBar1: TToolBar;
    pe_main: TPanel;
    cmd_dj: TSpeedButton;
    Bevel2: TBevel;
    cmd_add1: TSpeedButton;
    cmd_add: TSpeedButton;
    cmd_js: TSpeedButton;
    cmd_ck: TSpeedButton;
    cmd_pj: TSpeedButton;
    Bevel1: TBevel;
    cmd_lb: TSpeedButton;
    sb_main: TStatusBar;
    mu_yw_xg_dj: TMenuItem;
    mu_yw_gl_tk: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    mu_yw_gl_xs: TMenuItem;
    mu_yw_gl_xs_wm: TMenuItem;
    mu_yw_gl_xs_th: TMenuItem;
    N6: TMenuItem;
    mu_yw_gl_other: TMenuItem;
    mu_cx_cl: TMenuItem;
    mu_cx_cl_js: TMenuItem;
    mu_cx_cl_wjs: TMenuItem;
    N7: TMenuItem;
    mu_cx_pj: TMenuItem;
    mu_cx_other: TMenuItem;
    N8: TMenuItem;
    mu_cx_ck: TMenuItem;
    N9: TMenuItem;
    mu_cx_std: TMenuItem;
    cmd_other: TSpeedButton;
    Bevel3: TBevel;
    mu_cx_std_jjl: TMenuItem;
    mu_cx_std_pg: TMenuItem;
    mu_cx_std_kind: TMenuItem;
    mu_cx_std_gg: TMenuItem;
    mu_cx_std_name: TMenuItem;
    mu_cx_std_wx: TMenuItem;
    Timer1: TTimer;
    cal: TOleContainer;
    pe_lst: TPanel;
    lst_bh: TListBox;
    cmd_re: TBitBtn;
    cmd_jsq: TSpeedButton;
    qe_bh: TQuery;
    N10: TMenuItem;
    mu_yw_gl_zy_ll: TMenuItem;
    N11: TMenuItem;
    mu_yw_gl_dsk: TMenuItem;
    mu_cx_dsk: TMenuItem;
    mu_yw_gl_o: TMenuItem;
    cmd_o_add: TSpeedButton;
    mu_hlp_ok: TMenuItem;
    N12: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mu_sys_logClick(Sender: TObject);
    procedure mu_sys_exitClick(Sender: TObject);
    procedure mu_std_info_gsClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormDestroy(Sender: TObject);
    procedure mu_yw_gl_djClick(Sender: TObject);
    procedure mu_yw_xg_djClick(Sender: TObject);
    procedure mu_yw_gl_pjClick(Sender: TObject);
    procedure mu_yw_gl_tkClick(Sender: TObject);
    procedure mu_yw_gl_gsClick(Sender: TObject);
    procedure mu_yw_gl_jsClick(Sender: TObject);
    procedure mu_yw_gl_xs_wmClick(Sender: TObject);
    procedure mu_yw_gl_xs_thClick(Sender: TObject);
    procedure mu_yw_gl_otherClick(Sender: TObject);
    procedure mu_cx_cl_wjsClick(Sender: TObject);
    procedure mu_cx_cl_jsClick(Sender: TObject);
    procedure mu_sys_passClick(Sender: TObject);
    procedure mu_cx_pjClick(Sender: TObject);
    procedure mu_cx_otherClick(Sender: TObject);
    procedure mu_cx_ckClick(Sender: TObject);
    procedure mu_cx_std_nameClick(Sender: TObject);
    procedure mu_cx_std_ggClick(Sender: TObject);
    procedure mu_cx_std_kindClick(Sender: TObject);
    procedure mu_cx_std_jjlClick(Sender: TObject);
    procedure mu_cx_std_pgClick(Sender: TObject);
    procedure mu_cx_std_wxClick(Sender: TObject);
    procedure cmd_jsqClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure cmd_lbClick(Sender: TObject);
    procedure cmd_reClick(Sender: TObject);
    procedure mu_yw_gl_zy_llClick(Sender: TObject);
    procedure mu_yw_gl_dskClick(Sender: TObject);
    procedure mu_cx_dskClick(Sender: TObject);
    procedure mu_hlp_aboutClick(Sender: TObject);
    procedure mu_yw_gl_oClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
    intAll: integer;
    //
    function CloseFormBeforeShow: integer;
  public
    { Public declarations }
    user_name: string;
    user_password: string;
    user_group: integer;
    current_handle: HWND;
  end;

var
  frm_main: Tfrm_main;

implementation

{$R *.DFM}

uses
  log, gs_wh, cl_dj, xg_dj, pj_add, pj_tk,
  gs_add, qt_js, wm_select, pj_wm, wm_tk, sys_reg,
  others, q_wjs, q_js, update_pass, q_other, other_add,
  q_ck, q_all, wm_sel, zl_ll, qt_dsk, q_dsk, about, zc;

function Tfrm_main.CloseFormBeforeShow: integer;
var
  intResult: integer;
begin
  intResult := 0;
  if Assigned(frm_gs_wh) then begin
    Tag := 0;
    frm_gs_wh.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_cl_dj) then begin
    Tag := 0;
    frm_cl_dj.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_xg_dj) then begin
    Tag := 0;
    frm_xg_dj.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_pj_add) then begin
    Tag := 0;
    frm_pj_add.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_pj_tk1) then begin
    Tag := 0;
    frm_pj_tk1.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_gs_add) then begin
    Tag := 0;
    frm_gs_add.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_qt_js) then begin
    frm_qt_js.Close;
  end else if Assigned(frm_pj_wm) then begin
    Tag := 0;
    frm_pj_wm.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_wm_tk) then begin
    Tag := 0;
    frm_wm_tk.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_other) then begin
    Tag := 0;
    frm_other.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_q_wjs) then begin
    frm_q_wjs.Close;
  end else if Assigned(frm_q_js) then begin
    frm_q_js.Close;
  end else if Assigned(frm_q_other) then begin
    frm_q_other.Close;
  end else if Assigned(frm_q_ck) then begin
    frm_q_ck.Close;
  end else if Assigned(frm_q_all) then begin
    if intAll = 0 then
      frm_q_all.Close
    else if intAll = 1 then
      frm_q_all.Hide;
  end else if Assigned(frm_wm_sel) then begin
    frm_wm_sel.Close;
  end else if Assigned(frm_zy_ll) then begin
    Tag := 0;
    frm_zy_ll.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_dsk) then begin
    Tag := 0;
    frm_dsk.Close;
    if Tag = 0 then intResult := 1;
  end else if Assigned(frm_q_dsk) then begin
    frm_q_dsk.Close;
  end else if Assigned(frm_other_add) then begin
    Tag := 0;
    frm_other_add.Close;
    if Tag = 0 then intResult := 1;
  end;
  Result := intResult;
end;

procedure Tfrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  //
  if frm_log.Tag = 1 then begin
    frm_log.Tag := 0;
    frm_log.Show;
  end else if frm_log.Tag = 0 then
    frm_log.Close;
end;

procedure Tfrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  intResult: integer;
  my_handle: HWND;
begin
  if current_handle = 0 then
    my_handle := Handle
  else
    my_handle := current_handle;
  //
  if frm_log.Tag = 0 then begin
    if MessageBox(my_handle, '确实要退出系统吗?', '沈阳信德', MB_ICONQUESTION or MB_OKCANCEL) = ID_CANCEL then begin
      CanClose := False;
      Exit;
    end;
  end;
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    CanClose := False
  else if intResult = 0 then
    CanClose := True;
end;

procedure Tfrm_main.FormDestroy(Sender: TObject);
begin
  frm_main := nil;
end;

procedure Tfrm_main.mu_sys_logClick(Sender: TObject);
begin
  frm_log.Tag := 1;
  //
  Close;
end;

procedure Tfrm_main.mu_sys_exitClick(Sender: TObject);
begin
  frm_log.Tag := 0;
  //
  Close;
end;

procedure Tfrm_main.mu_std_info_gsClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_gs_wh) then begin
      frm_gs_wh := Tfrm_gs_wh.Create(Application);
      //
      frm_gs_wh.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_djClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_cl_dj) then begin
      frm_cl_dj := Tfrm_cl_dj.Create(Application);
      //
      frm_cl_dj.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_xg_djClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_xg_dj) then begin
      frm_xg_dj := Tfrm_xg_dj.Create(Application);
      //
      frm_xg_dj.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_pjClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_pj_add) then begin
      frm_pj_add := Tfrm_pj_add.Create(Application);
      //
      frm_pj_add.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_tkClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_pj_tk1) then begin
      frm_pj_tk1 := Tfrm_pj_tk1.Create(Application);
      //
      frm_pj_tk1.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_gsClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_gs_add) then begin
      frm_gs_add := Tfrm_gs_add.Create(Application);
      //
      frm_gs_add.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_jsClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_qt_js) then begin
      frm_qt_js := Tfrm_qt_js.Create(Application);
      //
      frm_qt_js.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_xs_wmClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //