main.pas

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

  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_wm_select) then begin
      frm_wm_select := Tfrm_wm_select.Create(Application);
      //
      frm_wm_select.ShowModal;
    end;
  end;
end;

procedure Tfrm_main.mu_yw_gl_xs_thClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_wm_sel) then begin
      frm_wm_sel := Tfrm_wm_sel.Create(Application);
      //
      frm_wm_sel.wm_pos := 2;
      frm_wm_sel.ShowModal;
    end;
  end;
end;

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

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

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

procedure Tfrm_main.mu_sys_passClick(Sender: TObject);
begin
  if not Assigned(frm_update_pass) then begin
    frm_update_pass := Tfrm_update_pass.Create(Application);
    frm_update_pass.user_name1 := user_name;
    frm_update_pass.user_pass1 := user_password;
    frm_update_pass.user_group1 := user_group;
    //
    frm_update_pass.ShowModal;
  end;
end;

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

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

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

procedure Tfrm_main.mu_cx_std_nameClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 1;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.mu_cx_std_ggClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 2;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.mu_cx_std_kindClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 3;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.mu_cx_std_jjlClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 4;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.mu_cx_std_pgClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 5;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.mu_cx_std_wxClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 1;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_all) then begin
      frm_q_all := Tfrm_q_all.Create(Application);
    end;
    //
    frm_q_all.intPos := 6;
    frm_q_all.Show;
  end;
end;

procedure Tfrm_main.cmd_jsqClick(Sender: TObject);
begin
  cal.DoVerb(0);
end;

procedure Tfrm_main.Timer1Timer(Sender: TObject);
var
  s: string;
  year, month, day: Word;
  stryear, strmonth, strday: string;
begin
  DecodeDate(Now, year, month, day);
  stryear := IntToStr(year);
  strmonth := Format('%2.2d', [month]);
  strday := Format('%2.2d', [day]);
  //
  s := ' ' + stryear + '年' + strmonth + '月' + strday + '日' + ' ' + TimeToStr(Time);
  sb_Main.Panels[2].Text := s;
end;

procedure Tfrm_main.cmd_lbClick(Sender: TObject);
begin
  if cmd_lb.Caption = '登记列表' then begin
    cmd_lb.Caption := '隐藏列表';
    qe_bh.Close;
    qe_bh.Open;
    qe_bh.First;
    lst_bh.Items.Clear;
    while not qe_bh.Eof do begin
      lst_bh.Items.Add(Trim(qe_bh.FieldByName('dj_bh').AsString));
      qe_bh.Next;
    end;
    qe_bh.Close;
    pe_lst.Visible := True;
  end else if cmd_lb.Caption = '隐藏列表' then begin
    cmd_lb.Caption := '登记列表';
    pe_lst.Visible := False;
  end;
end;

procedure Tfrm_main.cmd_reClick(Sender: TObject);
begin
  pe_lst.Visible := False;
  qe_bh.Close;
  qe_bh.Open;
  qe_bh.First;
  lst_bh.Items.Clear;
  while not qe_bh.Eof do begin
    lst_bh.Items.Add(Trim(qe_bh.FieldByName('dj_bh').AsString));
    qe_bh.Next;
  end;
  qe_bh.Close;
  pe_lst.Visible := True;
end;

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

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

procedure Tfrm_main.mu_cx_dskClick(Sender: TObject);
var
  intResult: integer;
begin
  intAll := 0;
  //
  intResult := CloseFormBeforeShow;
  if intResult = 1 then
    Exit
  else begin
    if not Assigned(frm_q_dsk) then begin
      frm_q_dsk := Tfrm_q_dsk.Create(Application);
      //
      frm_q_dsk.ds_pos := 2;
      frm_q_dsk.Show;
    end;
  end;
end;

procedure Tfrm_main.mu_hlp_aboutClick(Sender: TObject);
begin
  if not Assigned(frm_about) then begin
    frm_about := Tfrm_about.Create(Application);
    frm_about.ShowModal;
  end;
end;

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

procedure Tfrm_main.N12Click(Sender: TObject);
begin
Application.CreateForm(Tfrmzc, frmzc);
frmzc.showmodal;
end;

end.