dgsdm.pas

有需要的同仁载回去慢慢研究

unit DGSDM;

interface

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

type
  TDM_GSGL = class(TDataModule)
    GsDb: TDatabase;
    DsBmGzxm: TDataSource;
    QryTemp: TQuery;
    DsGsDay: TDataSource;
    QryGzxmTj: TQuery;
    DsGzxmTj: TDataSource;
    QryZxTj: TQuery;
    DsZxtj: TDataSource;
    DsGsgzxm: TDataSource;
    TableGsgzxm: TTable;
    QryBmGzxm: TQuery;
    QryGzxmByBm: TQuery;
    QryGsDay: TQuery;
    QryTodayByBm: TQuery;
    DsTodayByBm: TDataSource;
    QryTemp1: TQuery;
    QryYg: TQuery;
    QryBmFzGzxmTj: TQuery;
    DSBmFzGzxmTj: TDataSource;
    QryBmFzTj: TQuery;
    DsBmFztj: TDataSource;
    QryGsGzxmTj: TQuery;
    DSGsGzxmTj: TDataSource;
    QryGsZxTj: TQuery;
    DsGsZxTj: TDataSource;
    QryXtgn: TQuery;
    QryUser: TQuery;
    DsUser: TDataSource;
    QryUserBDEDesigner: TStringField;
    QryUserBDEDesigner2: TStringField;
    QryUserBDEDesigner3: TBooleanField;
    QryUserBDEDesigner4: TStringField;
    QryUserBDEDesigner5: TStringField;
    tbUser: TQuery;
    DsYg: TDataSource;
    QryMeber: TQuery;
    QryYgxx: TQuery;
    DsYgxx: TDataSource;
    UpdateSQLYgxx: TUpdateSQL;
    DsLbxx: TDataSource;
    QryLbxx: TQuery;
    UpdateSQLLbxx: TUpdateSQL;
    QryFzry: TQuery;
    DsFzry: TDataSource;
    QryFzryBDEDesigner2: TStringField;
    QryFzryBDEDesigner3: TStringField;
    QryFzryBDEDesigner5: TStringField;
    QryFzryBDEDesigner7: TBooleanField;
    QryFzryBDEDesigner8: TBooleanField;
    QryBmLb: TQuery;
    QryNoLbbh: TQuery;
    QryLbbh: TQuery;
    QryYgBDEDesigner: TStringField;
    QryYgBDEDesigner2: TStringField;
    QryYgBDEDesigner3: TStringField;
    QryYgBDEDesigner4: TBooleanField;
    QryYgBDEDesigner5: TBooleanField;
    QryYgBDEDesigner6: TIntegerField;
    QryYgBDEDesigner7: TStringField;
    QryYgxxBDEDesigner: TStringField;
    QryYgxxBDEDesigner2: TStringField;
    QryYgxxBDEDesigner3: TStringField;
    QryYgxxBDEDesigner4: TBooleanField;
    QryYgxxBDEDesigner5: TBooleanField;
    QryYgxxBDEDesigner6: TIntegerField;
    QryYgxxBDEDesigner7: TStringField;
    TableGsgzxmBDEDesigner: TSmallintField;
    TableGsgzxmBDEDesigner2: TStringField;
    TableGsgzxmBDEDesigner3: TBooleanField;
    UpdateSQLBmGzxm: TUpdateSQL;
    QryBmGzxmBDEDesigner: TAutoIncField;
    QryBmGzxmBDEDesigner2: TStringField;
    QryBmGzxmBDEDesigner3: TStringField;
    QryBmGzxmBDEDesigner4: TSmallintField;
    QryBmGzxmBDEDesigner5: TStringField;
    QryMeberBDEDesigner: TStringField;
    QryMeberBDEDesigner2: TStringField;
    QryMeberBDEDesigner3: TStringField;
    QryGsDayBDEDesigner: TAutoIncField;
    QryGsDayBDEDesigner2: TStringField;
    QryGsDayBDEDesigner3: TStringField;
    QryGsDayBDEDesigner4: TIntegerField;
    QryGsDayBDEDesigner5: TFloatField;
    QryGsDayBDEDesigner6: TSmallintField;
    QryGsDayBDEDesigner7: TStringField;
    QryGsDayBDEDesigner8: TStringField;
    QryGsDayField: TStringField;
    UpdateSQLGsDay: TUpdateSQL;
    QryMeberBDEDesigner4: TStringField;
    QryTodayByBmBDEDesigner: TStringField;
    QryTodayByBmBDEDesigner2: TStringField;
    QryTodayByBmBDEDesigner3: TFloatField;
    QryTodayByBmBDEDesigner4: TStringField;
    QryTodayByBmBDEDesigner5: TSmallintField;
    QryTodayByBmField: TStringField;
    QryTodayByBmBDEDesigner6: TStringField;
    QryGsGzxmTjBDEDesigner: TStringField;
    QryGsGzxmTjBDEDesigner2: TIntegerField;
    QryGsGzxmTjBDEDesigner3: TStringField;
    QryGsGzxmTjBDEDesigner4: TFloatField;
    QryGsGzxmTjBDEDesigner5: TFloatField;
    QryGsGzxmTjBDEDesigner6: TFloatField;
    QryGsGzxmTjBDEDesigner7: TFloatField;
    QryGsGzxmTjBDEDesigner8: TFloatField;
    QryBmFzTjBDEDesigner: TStringField;
    QryBmFzTjBDEDesigner2: TStringField;
    QryBmFzTjBDEDesigner3: TBooleanField;
    QryBmFzTjBDEDesigner4: TFloatField;
    QryBmFzGzxmTjBDEDesigner: TStringField;
    QryBmFzGzxmTjBDEDesigner2: TStringField;
    QryBmFzGzxmTjBDEDesigner3: TBooleanField;
    QryBmFzGzxmTjBDEDesigner4: TFloatField;
    QryGzxmTjBDEDesigner: TStringField;
    QryGzxmTjBDEDesigner2: TStringField;
    QryGzxmTjBDEDesigner3: TBooleanField;
    QryGzxmTjBDEDesigner4: TFloatField;
    QryZxTjBDEDesigner: TStringField;
    QryZxTjBDEDesigner2: TStringField;
    QryZxTjBDEDesigner3: TBooleanField;
    QryZxTjBDEDesigner4: TFloatField;
    QryGsZxTjBDEDesigner: TStringField;
    QryGsZxTjBDEDesigner2: TStringField;
    QryGsZxTjBDEDesigner3: TBooleanField;
    QryGsZxTjBDEDesigner4: TFloatField;
    procedure DsGsDayDataChange(Sender: TObject; Field: TField);
    procedure DsBmGzxmDataChange(Sender: TObject; Field: TField);
    procedure DsGsgzxmDataChange(Sender: TObject; Field: TField);
    procedure QryGsDayCalcFields(DataSet: TDataSet);
    procedure QryTodayByBmCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure DsYgxxDataChange(Sender: TObject; Field: TField);
    procedure QryLbxxAfterPost(DataSet: TDataSet);
    procedure QryLbxxAfterDelete(DataSet: TDataSet);
    procedure QryLbxxBeforeDelete(DataSet: TDataSet);
    procedure DsUserDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_GSGL: TDM_GSGL;

implementation

uses GSGRHB, GSGZXM, mycommon, YGXX, BMGZXM, UserAuthor;


{$R *.DFM}

procedure TDM_GSGL.DsGsDayDataChange(Sender: TObject; Field: TField);
begin
  if (FrmGrhb.MyStatus = '浏览') then
  begin
    FrmGrhb.TableToEdit;
    FrmGrhb.ShowMyButton;
  end;
end;

procedure TDM_GSGL.DsBmGzxmDataChange(Sender: TObject; Field: TField);
begin
  if (FrmBmGzxm.InputStatus = '浏览') then
  begin
    FrmBmGzxm.TableToEdit;
    FrmBmGzxm.ShowMyButton;
  end;
end;

procedure TDM_GSGL.DsGsgzxmDataChange(Sender: TObject; Field: TField);
begin
  if (FrmGsGzxm.InputStatus = '浏览') then
  begin
   FrmGsGzxm.TableToEdit;
   FrmGsGzxm.ShowMyButton;
  end;
end;

procedure TDM_GSGL.QryGsDayCalcFields(DataSet: TDataSet);
begin
  If QryGsDay.Fieldbyname('上班类型').asinteger=1 then
    QryGsDay.Fieldbyname('类型').asstring:='正常上班';
  If QryGsDay.Fieldbyname('上班类型').asinteger=2 then
    QryGsDay.Fieldbyname('类型').asstring:='1.5倍加班';
  If QryGsDay.Fieldbyname('上班类型').asinteger=3 then
    QryGsDay.Fieldbyname('类型').asstring:='2倍加班';
  If QryGsDay.Fieldbyname('上班类型').asinteger=4 then
    QryGsDay.Fieldbyname('类型').asstring:='3倍加班';
end;

procedure TDM_GSGL.QryTodayByBmCalcFields(DataSet: TDataSet);
begin
  If QryTodayByBm.Fieldbyname('上班类型').asinteger=1 then
    QryTodayByBm.Fieldbyname('类型').asstring:='正常上班';
  If QryTodayByBm.Fieldbyname('上班类型').asinteger=2 then
    QryTodayByBm.Fieldbyname('类型').asstring:='延长加班';
  If QryTodayByBm.Fieldbyname('上班类型').asinteger=3 then
    QryTodayByBm.Fieldbyname('类型').asstring:='休息日加班';
  If QryTodayByBm.Fieldbyname('上班类型').asinteger=4 then
    QryTodayByBm.Fieldbyname('类型').asstring:='节日加班';
end;

procedure TDM_GSGL.DataModuleCreate(Sender: TObject);
begin
  with GsDb do
  begin
    connected:=false;
    AliasName:='GSGL';
    LoginPrompt:=False;
    Params.Clear;
    Params.add('USER NAME='+pusername);
    Params.add('PASSWORD='+ppassword);
  end;
end;

procedure TDM_GSGL.DsYgxxDataChange(Sender: TObject; Field: TField);
begin
  if (FrmYgxx.InputStatus = '浏览') then
  begin
    FrmYgxx.TableToEdit;
    FrmYgxx.ShowMyButton;
  end;
end;

procedure TDM_GSGL.QryLbxxAfterPost(DataSet: TDataSet);
begin
  QryLbxx.CommitUpdates;
end;

procedure TDM_GSGL.QryLbxxAfterDelete(DataSet: TDataSet);
begin
  QryLbxx.CommitUpdates;
end;

procedure TDM_GSGL.QryLbxxBeforeDelete(DataSet: TDataSet);
begin
  if QryTemp.Active=true then
    QryTemp.Close;
  QryTemp.SQL.Clear;
  QryTemp.SQL.Add('select 轮班编号');
  QryTemp.SQL.Add('from 轮班分组信息');
  QryTemp.SQL.Add('where 轮班编号=:plbbh');
  QryTemp.ParamByName('plbbh').asstring:=DataSet.Fieldbyname('轮班编号').AsString;
  QryTemp.Open;
  if not QryTemp.Eof then
  begin
    MessageDlg('该轮班已经有轮班分组信息，不能删除！',mtError, [mbYes],0);
    abort;
  end;
end;

procedure TDM_GSGL.DsUserDataChange(Sender: TObject; Field: TField);
begin
  if (frmAuthor.MyStatus = 'browse') then
  begin
    frmAuthor.TableToEdit;
    frmAuthor.ShowMyButton;
  end;
end;

end.