chheadunit.pas

仓库管理系统 仓库管理系统

unit chHeadUnit;

interface

Uses Windows, Messages, SysUtils, Classes, Dialogs,
  ComCtrls, Variants, Graphics, Controls, Forms,
  DB, ADODB, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons,
  DBCtrls, Mask, DBGridEh;

  Const conSEPCHAR = ';';
        g_conMSERIALMASK = '>L000000\-00999;1;_';
        g_conSERIALMASK = '>L000000\-00999\-L00099;1;_';
        g_conInforBackColor = $00E4F9FC;


  type
       TUserInfo = Record
         FuserId:string;
         FUserName : String;
       ENd;
  Var
        g_uInfo : TUserInfo;
  procedure tabventer(tabform: TForm; var vKey: Char);
  procedure TitClick(Column: TColumn);
  procedure ehTitClick(Column: TColumnEh);

implementation


function  g_funDaysPerMonth(AYear, AMonth: Integer): Integer;
const
    DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
begin
    Result := DaysInMonth[AMonth];
    if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
end;

////////////////////////////////////////////////////////////////////////////////
// Author : Edward Lane
// Date   : 2000-9-2
// Function : 根据生产计划的状态标记,返回状态标记说明.
// Params : (Value : Integer; 生产计划的状态标记数值.)
// Return : String; 生产计划的状态标记说明.
////////////////////////////////////////////////////////////////////////////////
Function g_funGet_PlanStatus(Value : Integer):String;
Begin
  Case Value Of
    0: Result := '初始建立';
    1: Result := '已经下达,执行中';
    2: Result := '计划结束';
    Else Result := '___';
  End;
End;

////////////////////////////////////////////////////////////////////////////////
// Author : Edward Lane
// Date   : 2000-9-2
// Function : 根据生产任务的状态标记,返回状态标记说明.
// Params : (Value : Integer; 生产任务的状态标记数值.)
// Return : String; 生产任务的状态标记说明.
////////////////////////////////////////////////////////////////////////////////
Function g_funGet_TaskStatus(Value : Integer):String;
Begin
  Case Value Of
    0: Result := '初始建立';
    1: Result := '编入生产计划';{本状态取消}
    2: Result := '已经下达';
    3: Result := '执行生产中';
    4: Result := '任务请求暂停';
    5: Result := '任务暂停';
    6: Result := '任务请求撤消';
    7: Result := '任务撤消';
    8: Result := '暂停任务请求恢复生产';
    9: Result := '产品终检完成';
    10:Result := '产品入库';
  Else Result :='______';
  End;
End;

procedure tabventer(tabform: TForm; var vKey: Char);
begin
  if vkey=#13 then { 判断是按执行键}
  if not (tabform.ActiveControl is TDbgrid) Then
  Begin { 不是在TDbgrid控件内}
    vkey:=#0;
    tabform.perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  end else
  if (tabform.ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}
  begin
    With TDbgrid(tabform.ActiveControl) Do
    if Selectedindex<(FieldCount-1) then
      Selectedindex:=Selectedindex+1{ 移动到下一字段}
    else Selectedindex:=0;
  end;
end;

procedure TitClick(Column: TColumn);
begin 
   if column.Grid.DataSource.DataSet.Active=true then begin 
      if column.Grid.Tag=0 then begin 
         (column.Grid.DataSource.DataSet as TADOquery).Sort:=Column.FieldName+' ASC';
         column.Grid.Tag:=1; 
      end 
      else begin 
         (column.Grid.DataSource.DataSet as TADOquery).Sort:=Column.FieldName+' DESC';
         column.Grid.Tag:=0; 
      end; 
   end; 
end;

procedure ehTitClick(Column: TColumnEh); {单击表格列头排序eh}
begin
  if Column.FieldName<>'' then
  begin
    if column.Title.SortMarker=smDownEh then
    begin
      Column.Title.SortMarker := smupEh;
      (column.Grid.DataSource.DataSet as TADOquery).Sort:=Column.FieldName+' DESC';
    end
    else
    begin
      Column.Title.SortMarker := smDownEh;
      (column.Grid.DataSource.DataSet as TADOquery).Sort:=Column.FieldName+' ASC';
    end;
  end;  
end;

end.