q_all.pas

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

unit q_all;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, Db, DBTables;

type
  Tfrm_q_all = class(TForm)
    pc_main: TPageControl;
    ts_1: TTabSheet;
    DBGrid1: TDBGrid;
    ts_2: TTabSheet;
    DBGrid2: TDBGrid;
    ts_3: TTabSheet;
    DBGrid3: TDBGrid;
    ts_4: TTabSheet;
    ts_5: TTabSheet;
    qe_pj: TQuery;
    ds_pj: TDataSource;
    qe_gg: TQuery;
    ds_gg: TDataSource;
    qe_kind: TQuery;
    ds_kind: TDataSource;
    DBGrid4: TDBGrid;
    qe_jjl: TQuery;
    ds_jjl: TDataSource;
    DBGrid5: TDBGrid;
    qe_pg: TQuery;
    ds_pg: TDataSource;
    ds_bx: TDataSource;
    qe_bx: TQuery;
    ts_6: TTabSheet;
    DBGrid6: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    intPos: integer;
  end;

var
  frm_q_all: Tfrm_q_all;

implementation

{$R *.DFM}

uses
  log, main;


procedure Tfrm_q_all.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qe_pj.Close;
  qe_kind.Close;
  qe_bx.Close;
  qe_gg.Close;
  qe_pg.Close;
  qe_jjl.Close;
  //
  if intPos = 1 then
    frm_main.mu_cx_std_name.Enabled := True
  else if intPos = 2 then
    frm_main.mu_cx_std_gg.Enabled := True
  else if intPos = 3 then
    frm_main.mu_cx_std_kind.Enabled := True
  else if intPos = 4 then
    frm_main.mu_cx_std_jjl.Enabled := True
  else if intPos = 5 then
    frm_main.mu_cx_std_pg.Enabled := True
  else if intpos = 6 then
    frm_main.mu_cx_std_wx.Enabled := True;
  //
  Action := caFree;  
end;

procedure Tfrm_q_all.FormDestroy(Sender: TObject);
begin
  qe_pj := nil;
  qe_kind := nil;
  qe_gg := nil;
  qe_jjl := nil;
  qe_bx := nil;
  qe_pg := nil;
  //
  frm_q_all := nil;
end;

procedure Tfrm_q_all.FormShow(Sender: TObject);
begin
  if intPos = 1 then begin
    Caption := '配件信息显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_pj.Open;
    qe_pj.First;
    //
    pc_main.ActivePageIndex := 0;
    //
    frm_main.mu_cx_std_name.Enabled := False;
    frm_main.mu_cx_std_gg.Enabled := True;
    frm_main.mu_cx_std_kind.Enabled := True;
    frm_main.mu_cx_std_jjl.Enabled := True;
    frm_main.mu_cx_std_pg.Enabled := True;
    frm_main.mu_cx_std_wx.Enabled := True;
  end else if intPos = 2 then begin
    Caption := '配件规格显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_gg.Open;
    qe_gg.First;
    //
    pc_main.ActivePageIndex := 1;
    //
    frm_main.mu_cx_std_name.Enabled := True;
    frm_main.mu_cx_std_gg.Enabled := False;
    frm_main.mu_cx_std_kind.Enabled := True;
    frm_main.mu_cx_std_jjl.Enabled := True;
    frm_main.mu_cx_std_pg.Enabled := True;
    frm_main.mu_cx_std_wx.Enabled := True;
  end else if intPos = 3 then begin
    Caption := '配件类型显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_kind.Open;
    qe_kind.First;
    //
    pc_main.ActivePageIndex := 2;
    //
    frm_main.mu_cx_std_name.Enabled := True;
    frm_main.mu_cx_std_gg.Enabled := True;
    frm_main.mu_cx_std_kind.Enabled := False;
    frm_main.mu_cx_std_jjl.Enabled := True;
    frm_main.mu_cx_std_pg.Enabled := True;
    frm_main.mu_cx_std_wx.Enabled := True;
  end else if intPos = 4 then begin
    Caption := '加价率显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_jjl.Open;
    qe_jjl.First;
    //
    pc_main.ActivePageIndex := 3;
    //
    frm_main.mu_cx_std_name.Enabled := True;
    frm_main.mu_cx_std_gg.Enabled := True;
    frm_main.mu_cx_std_kind.Enabled := True;
    frm_main.mu_cx_std_jjl.Enabled := False;
    frm_main.mu_cx_std_pg.Enabled := True;
    frm_main.mu_cx_std_wx.Enabled := True;
  end else if intPos = 5 then begin
    Caption := '派工人员显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_pg.Open;
    qe_pg.First;
    //
    pc_main.ActivePageIndex := 4;
    //
    frm_main.mu_cx_std_name.Enabled := True;
    frm_main.mu_cx_std_gg.Enabled := True;
    frm_main.mu_cx_std_kind.Enabled := True;
    frm_main.mu_cx_std_jjl.Enabled := True;
    frm_main.mu_cx_std_pg.Enabled := False;
    frm_main.mu_cx_std_wx.Enabled := True;
  end else if intPos = 6 then begin
    Caption := '保险类型显示窗体';
    qe_pj.Close;
    qe_kind.Close;
    qe_bx.Close;
    qe_gg.Close;
    qe_jjl.Close;
    qe_pg.Close;
    qe_bx.Open;
    qe_bx.First;
    //
    pc_main.ActivePageIndex := 5;
    //
    frm_main.mu_cx_std_name.Enabled := True;
    frm_main.mu_cx_std_gg.Enabled := True;
    frm_main.mu_cx_std_kind.Enabled := True;
    frm_main.mu_cx_std_jjl.Enabled := True;
    frm_main.mu_cx_std_pg.Enabled := True;
    frm_main.mu_cx_std_wx.Enabled := False;
  end;
  //
  frm_main.current_handle := Handle;
end;

end.