manage.~pas

delphi 生产管理系统 sql2000位后台数据库

unit manage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,ComCtrls, DB, ADODB,COMOBJ,EXCEL2000,
  RzSplit,DBGridEh, bsSkinCtrls, Grids, RzTreeVw, DBCtrls, RzPanel,
  bsdbctrls;

type
  TFrm_manage = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    PC: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    bsSkinDBNavigator1: TbsSkinDBNavigator;
    bsSkinDBNavigator2: TbsSkinDBNavigator;
    bsSkinDBNavigator3: TbsSkinDBNavigator;
    bsSkinDBNavigator4: TbsSkinDBNavigator;
    bsSkinDBNavigator5: TbsSkinDBNavigator;
    bsSkinDBNavigator6: TbsSkinDBNavigator;
    bsSkinDBNavigator7: TbsSkinDBNavigator;
    bsSkinDBNavigator8: TbsSkinDBNavigator;
    bsSkinDBNavigator9: TbsSkinDBNavigator;
    DBGridEh2: TDBGridEh;
    bsSkinDBGrid2: TDBGridEh;
    DBGridEh1: TDBGridEh;
    DBGridEh3: TDBGridEh;
    DBGridEh4: TDBGridEh;
    DBGridEh5: TDBGridEh;
    DBGridEh6: TDBGridEh;
    DBGridEh7: TDBGridEh;
    DBGridEh8: TDBGridEh;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource4: TDataSource;
    ADOQuery5: TADOQuery;
    DataSource5: TDataSource;
    ADOQuery6: TADOQuery;
    DataSource6: TDataSource;
    ADOQuery7: TADOQuery;
    DataSource7: TDataSource;
    ADOQuery8: TADOQuery;
    DataSource8: TDataSource;
    ADOQuery9: TADOQuery;
    DataSource9: TDataSource;
    Panel1: TPanel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure DBGridEh4TitleClick(Column: TColumnEh);
    procedure FormShow(Sender: TObject);
    procedure DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh7TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh8TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure bsSkinDBGrid2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh3TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh5TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh6TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh4TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
   // procedure dbgridtoexcel(dbgrid:TbsSKINDBgrids);
    procedure WMSysCommand(var Message: TWMSysCommand);message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_manage: TFrm_manage;
  flag:boolean;

implementation

uses main, share, dm;

{$R *.dfm}

procedure TFrm_manage.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) or (Message.CmdType = SC_RESTORE)then
     WindowState:=wsMaximized
  else
    inherited;
end;

procedure TFrm_manage.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TFrm_manage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Frm_manage:=nil;//先
  Action:=cafree;//后
  frm_main.rzfieldStatus2.Caption :='主界面';
end;

procedure TFrm_manage.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure TFrm_manage.bsSkinButton1Click(Sender: TObject);
begin
close;
end;

procedure TFrm_manage.bsSkinButton8Click(Sender: TObject);
begin
//if messagebox(handle,'您先确定是否安装MS EXCEL ,真的要导出EXCEL吗？','提示',65)=idok then
//dbgridtoexcel(rzdbgrid1);
end;

{procedure tfrm_manage.dbgridtoexcel(dbgrid:tbsSKINDBgrids);
var
 xlsFilename :string;
 excel,WorkBook :variant ;
 i,j :integer;
begin
if dbgrid.FieldCount=0 then
  begin
    messagebox(0,'此记录集为空，无法导出!','提示',64);
    exit;
  end;
screen.Cursor :=crappstart;
try
 excel :=CreateOleObject('Excel.Application');
 WorkBook :=CreateOleObject('Excel.Sheet');
except
 messagebox(0,'您的电脑没有安装Microsoft Excel','提示',mb_ok+mb_iconwarning);
 excel.connected:=false;
 exit;
end;
try
  workbook:=excel.workBooks.add ;
  for i :=1 to  dbgrid.FieldCount do      //转化字段名；
    //excel.cells(1,i) :=DBGrid.Fields[i-1].FieldName ;
     excel.cells(1,i) :=DBGrid.columns[i-1].title.CAPTION;

  DBGrid.DataSource.DataSet.First ;
  for i :=1 to  dbgrid.DataSource.DataSet.RecordCount    do    //Form3.a_recno
    begin
      for j :=1 to dbgrid.FieldCount do  //转化一个记录
        begin
          excel.Cells[i+1,j].NumberFormatLocal:='@';
          excel.cells(i+1,j) :=DbGrid.Fields[j-1].value ;
          excel.Columns.EntireColumn.AutoFit;
        end;
      DBGrid.DataSource.DataSet.Next ;
    end;
  Excel.Visible:=true;
except
  messagebox(0,'不能正确操作EXECL文件，可能该文件已经被其他程序占用或系统错误!','提示',64);
  WorkBook.close;
  excel.quit;
  excel :=Unassigned;
end;
screen.Cursor :=crdefault;
end; }

procedure TFrm_manage.DBGridEh4TitleClick(Column: TColumnEh);
begin
  if ADOquery1.IsEmpty  then exit;
  flag:=not flag;
  if Flag then ADOquery1.Sort:=Column.FieldName+' ASC'
  else ADOquery1.Sort:=Column.FieldName+' DESC';
end;

procedure TFrm_manage.FormShow(Sender: TObject);
begin
  runsql(ADOquery1,'select * from mokuai order by sj desc','open');
  runsql(ADOquery2,'select * from banchengpin order by sj desc','open');
  runsql(ADOquery3,'select * from chengpin order by sj desc','open');
  runsql(ADOquery4,'select * from mokuai_sy order by name','open');
  runsql(ADOquery5,'select * from banchengpin_sy order by name','open');
  runsql(ADOquery6,'select * from chengpin_sy order by name','open');
  runsql(ADOquery7,'select * from fahuo order by sj desc','open');
  runsql(ADOquery8,'select * from fanxiu order by sj desc','open');
  runsql(ADOquery9,'select * from fujian order by name','open');
  pc.ActivePageIndex:=0;
end;

procedure TFrm_manage.DBGridEh2TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery1.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery1.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery1.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh7TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery2.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery2.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery2.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh8TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery3.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery3.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery3.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.bsSkinDBGrid2TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery4.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery4.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery4.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery5.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery5.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery5.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh3TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery6.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery6.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery6.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh5TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery7.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery7.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery7.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh6TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery8.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery8.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery8.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_manage.DBGridEh4TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if adoquery9.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: adoquery9.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: adoquery9.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

end.