commondatadm.pas

一个电力部门的催缴费用系统

unit CommonDataDM;

interface

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

type
  TDM_CommonData = class(TDataModule)
    Qr_CjUserList: TQuery;
    Ds_CjUserList: TDataSource;
    Up_CjUserList: TUpdateSQL;
    Qr_CallOutTimeTable: TQuery;
    Up_CallOutTimeTable: TUpdateSQL;
    Qr_CjTable: TQuery;
    Ds_CjTable: TDataSource;
    Qr_RptCjUserList: TQuery;
    Qr_CjUserListCZH: TStringField;
    Qr_CjUserListPhoneCode: TStringField;
    Qr_CjUserListUserName: TStringField;
    Qr_CjUserListCarea: TStringField;
    Qr_CjUserListUser_Type: TIntegerField;
    Qr_CjUserListNote: TStringField;
    Tbl_UserArea: TTable;
    Ds_UserArea: TDataSource;
    Tbl_UserType: TTable;
    Ds_UserType: TDataSource;
    procedure Qr_CjUserListUpdateError(DataSet: TDataSet;
      E: EDatabaseError; UpdateKind: TUpdateKind;
      var UpdateAction: TUpdateAction);
    procedure DataModuleCreate(Sender: TObject);
    procedure Qr_CjUserListCareaGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qr_CjUserListBeforeOpen(DataSet: TDataSet);
    procedure Qr_CjUserListAfterClose(DataSet: TDataSet);
    procedure Qr_CjUserListAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
    function GetAreaName(CAreaString: String): String;
  public
    { Public declarations }
  end;

var
  DM_CommonData: TDM_CommonData;
const
  {Declare constants we're interested in}
  eKeyViol = 9729;
  eRequiredFieldMissing = 9732;
  eForeignKey = 9733;
  eDetailsExist = 9734;

implementation
uses CjUserListFM;
{$R *.DFM}

procedure TDM_CommonData.Qr_CjUserListUpdateError(DataSet: TDataSet;
  E: EDatabaseError; UpdateKind: TUpdateKind;
  var UpdateAction: TUpdateAction);
var
  iDBIError: Integer;
begin
  if (E is EDBEngineError) then
  begin
    iDBIError := (E as EDBEngineError).Errors[0].Errorcode;
    case iDBIError of
      eRequiredFieldMissing:
        begin
          MessageDlg('数据输入不全!',mtWarning, [mbOK], 0);
        end;
      eKeyViol:
        begin
          MessageDlg('帐号输入重复!', mtWarning,
            [mbOK], 0);
        end;
    end;
  end;
end;
procedure TDM_CommonData.DataModuleCreate(Sender: TObject);
begin
 tbl_UserType.Active := True;
 tbl_UserArea.Active := True;
end;

procedure TDM_CommonData.Qr_CjUserListCareaGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
 Text := GetAreaName(Sender.AsString);
end;

function TDM_CommonData.GetAreaName(CAreaString: String): String;
begin
 with TQuery.Create(nil)do
 try
  DataBaseName := SysDm.DBMain.DatabaseName;
  Sql.Text := Format('Select Type_Note from ELECFEE_USERAREA where user_area = ''%s''',[CareaString]);
  Open;
  Result := FieldByName('Type_Note').AsString;
 finally
  Free;
 end;

end;

procedure TDM_CommonData.Qr_CjUserListBeforeOpen(DataSet: TDataSet);
begin      {
  with TQuery.Create (nil) do
  try
    DataBaseName := SysDm.DBMain.DatabaseName;
    close;
    sql.text:='ALTER TABLE elecfee_userinfo ADD CONSTRAINT Account_pk PRIMARY KEY (User_Account)';
    prepare;
    execsql;
  finally
    free;
  end;     }

end;

procedure TDM_CommonData.Qr_CjUserListAfterClose(DataSet: TDataSet);
begin   {
  with TQuery.Create (nil) do
  try
    DataBaseName := SysDm.DBMain.DatabaseName;
    close;
    sql.text:='ALTER TABLE elecfee_userinfo DROP CONSTRAINT Account_pk';
    prepare;
    execsql;
  finally
    free;
  end;  }
  
end;

procedure TDM_CommonData.Qr_CjUserListAfterScroll(DataSet: TDataSet);
var
  sqlstr:string;
begin
  if Qr_CjUserList.IsEmpty then FM_CjUserList.ComboBox1.Text :=''
  else
  begin
    sqlstr:=Qr_CjUserList.FieldByName('CArea').AsString;
    with TQuery.Create (nil)do
    try
      DataBaseName:=SysDM.DBMain.DatabaseName ;
      close;
      sql.Text :='select * from elecfee_userarea where user_area='+#39+sqlstr+#39;
      open;
      if not eof then FM_CjUserList.ComboBox1.Text:=FieldByName('TYPE_NOTE').AsString;
    finally
      Free;
    end;
  end;
end;

end.