unit_main.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit Unit_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit_base, Menus, StdCtrls, TFlatComboBoxUnit, ComCtrls, ExtCtrls,
  TFlatEditUnit, CheckLst, Db, Grids, DBGrids, DBTables;

type
  Tform_main = class(TForm_base)
    MainMenu1: TMainMenu;
    menu_custstructure_B: TMenuItem;
    N2: TMenuItem;
    menu_callcost_B: TMenuItem;
    menu_payorcancel_B: TMenuItem;
    menu_operationaccept_B: TMenuItem;
    menu_operationuse_B: TMenuItem;
    N7: TMenuItem;
    menu__arrearage_B: TMenuItem;
    menu_historyinfo_B: TMenuItem;
    menu_service: TMenuItem;
    menu_integral_B: TMenuItem;
    N14: TMenuItem;
    menu_birthday_B: TMenuItem;
    menu_appeal_B: TMenuItem;
    menu_balance_B: TMenuItem;
    Button1: TButton;
    CheckListBox1: TCheckListBox;
    Button2: TButton;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    Button3: TButton;
    DataSource1: TDataSource;
    query_tmp: TQuery;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    N1: TMenuItem;
    procedure menu_custstructure_BClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure menu_serviceClick(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure Button5Click(Sender: TObject);
    procedure Query1BeforeOpen(DataSet: TDataSet);
    procedure menu_integral_BClick(Sender: TObject);
    procedure menu_historyinfo_BClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure menu__arrearage_BClick(Sender: TObject);
    procedure menu_birthday_BClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure menu_operationaccept_BClick(Sender: TObject);
    procedure menu_operationuse_BClick(Sender: TObject);
    procedure menu_balance_BClick(Sender: TObject);
    procedure menu_payorcancel_BClick(Sender: TObject);
    procedure menu_callcost_BClick(Sender: TObject);
    procedure menu_appeal_BClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_main: Tform_main;
  g_wk_no:String; //当前操作人员工号
  g_cityno:string;
  g_off_no_home:string;
  I:Integer;         //序号变量，主要用于遍历所有已打开的子窗体名称。

implementation
    uses  Unit_custombrowsebase, Unit_QueryStru, Unit_QueryCapture,
  unit_queryindiservice, unit_QueryIntegral, unit_QueryCustHistory,unit_custbrowsebase_P,
  unit_QueryArrearage, unit_QueryBirthday, unit_querystarConsume,
  Unit_QureyOperation, Unit_QueryOperationUse, Unit_QueryAccountBalance,
  Unit_QueryReckoning, Unit_QueryAppeal;
{$R *.DFM}

procedure Tform_main.menu_custstructure_BClick(Sender: TObject);
begin
  inherited;
frm_querystru:=tfrm_querystru.create(self);
frm_querystru.showmodal;
end;

procedure Tform_main.Button1Click(Sender: TObject);
begin
  inherited;
form_custombrowsebase:=Tform_custombrowsebase.create(self);
form_custombrowsebase.showmodal;
end;

procedure Tform_main.FormCreate(Sender: TObject);
begin
  inherited;

g_wk_no:='0102';
g_cityno:='591';
g_off_no_home:='1';
end;

procedure Tform_main.Button2Click(Sender: TObject);
var
    i:integer;
begin
  inherited;
for i:=1 to 20 do
  checklistbox1.Items.add('items'+inttostr(i));
end;

procedure Tform_main.Button3Click(Sender: TObject);
begin
  inherited;
with QUERY1 do
    begin
        close;
        sql.clear;
        sql.add('select *');
        sql.add(' from T_v_zy');
        sql.Add('where 1=1');
        open;
    end;

end;

procedure Tform_main.menu_serviceClick(Sender: TObject);
begin
  inherited;
frm_Queryindiservice:=Tfrm_Queryindiservice.create(self);
frm_Queryindiservice.showmodal;
end;

procedure Tform_main.Query1AfterOpen(DataSet: TDataSet);
begin
{var
    i:integer;
begin
  inherited;
with query_tmp do
    begin
        close;
        sql.clear;
        sql.add('select * from 表名');
        sql.add('where 视图字段='+''''+视图名+'''');
        sql.add(' and 是否显示=true');
        sql.add('order by 显示顺序');
        open;
        for i:=0 to recordcount-1 do
	        DBGrid1.Columns.Add;
        for i:=0 to recordcount-1 do
            begin
                DBGrid1.Fields[i].FieldName:=fieldbyname('字段名').asstring;
                DBGrid1.Columns[i].Title.Caption:=fieldbyname('显示名').asstring;
                DBGrid1.Columns[i].Visible:=fieldbyname('显示名').asboolean;
            end;
        dbgrid1.DataSource:=DataSource1;

    end;}
                dbgrid1.DataSource:=nil;
		dbgrid1.Columns.Clear;
                dbgrid1.Columns.Add;
                dbgrid1.Columns.Add;
                DBGrid1.columns[0].fieldname:='jbmc';
                DBGrid1.columns[0].Width:=200;
                DBGrid1.Columns[0].Title.Caption:='级别名称';
                DBGrid1.Columns[0].Visible:=true;
                DBGrid1.columns[1].fieldname:='jbdm';
                DBGrid1.columns[1].Width:=20;
                DBGrid1.Columns[1].Title.Caption:='级别代码';
                DBGrid1.Columns[1].Visible:=true;
                DBGrid1.DataSource:=datasource1;
end;

procedure Tform_main.Button5Click(Sender: TObject);
begin
  inherited;
 query1.Open;

end;

procedure Tform_main.Query1BeforeOpen(DataSet: TDataSet);
begin
  inherited;
	    {	dbgrid1.Columns.Clear;
                dbgrid1.Columns.Add;
                DBGrid1.Columns[0].Title.Caption:='级别名称';
                DBGrid1.Columns[0].Visible:=true;
                dbgrid1.columns[0].Field:=DataSource1.DataSet.Fields[0];
                DBGrid1.Fields[0].FieldName:='jbmc';}
end;

procedure Tform_main.menu_integral_BClick(Sender: TObject);
begin
  inherited;
FRM_QueryIntegral:=TFRM_QueryIntegral.create(self);
FRM_QueryIntegral.showmodal;
end;

procedure Tform_main.menu_historyinfo_BClick(Sender: TObject);
begin
  inherited;
frm_QueryCustHistory:=Tfrm_QueryCustHistory.create(self);
frm_QueryCustHistory.showmodal;
end;

procedure Tform_main.Button6Click(Sender: TObject);
begin
  inherited;
Form_custbrowsebase_P:=TForm_custbrowsebase_P.create(self);
Form_custbrowsebase_P.showmodal;
end;

procedure Tform_main.menu__arrearage_BClick(Sender: TObject);
begin
  inherited;
frm_QueryArrearage:=Tfrm_QueryArrearage.create(self);
frm_QueryArrearage.showmodal;
end;

procedure Tform_main.menu_birthday_BClick(Sender: TObject);
begin
  inherited;
frm_QueryBirthday:=Tfrm_QueryBirthday.create(self);
frm_QueryBirthday.showmodal;
end;

procedure Tform_main.N1Click(Sender: TObject);
begin
  inherited;
frm_querystarConsume:=Tfrm_querystarConsume.create(self);
frm_querystarConsume.showmodal;
end;

procedure Tform_main.menu_operationaccept_BClick(Sender: TObject);
begin
  inherited;
FRM_QureyOperation:=TFRM_QureyOperation.create(self);
FRM_QureyOperation.showmodal;
end;

procedure Tform_main.menu_operationuse_BClick(Sender: TObject);
begin
  inherited;
FRM_QueryOperationUse:=TFRM_QueryOperationUse.create(self);
FRM_QueryOperationUse.showmodal;
end;

procedure Tform_main.menu_balance_BClick(Sender: TObject);
begin
  inherited;
frm_QueryAccountBalance:=Tfrm_QueryAccountBalance.create(self);
frm_QueryAccountBalance.showmodal;
end;

procedure Tform_main.menu_payorcancel_BClick(Sender: TObject);
begin
  inherited;
frm_QueryCapture:=Tfrm_QueryCapture.create(self);
frm_QueryCapture.showmodal;
end;

procedure Tform_main.menu_callcost_BClick(Sender: TObject);
begin
  inherited;
frm_QueryReckoning:=Tfrm_QueryReckoning.create(self);
frm_QueryReckoning.showmodal;
end;

procedure Tform_main.menu_appeal_BClick(Sender: TObject);
begin
  inherited;
frm_QueryAppeal:=Tfrm_QueryAppeal.create(self);
frm_QueryAppeal.showmodal;
end;

end.