huaxia.pas

本系统为演示Delphi的功能而开发设计

unit HuaXia;

interface

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

type
  THuaXiaData = class(TDataModule)
    Databasehx: TDatabase;
    TableFlag: TTable;
    QueryXinYong: TQuery;
    DataSourceXinyong: TDataSource;
    QueryXinYongrecord_number: TFloatField;
    QueryXinYongid_number: TStringField;
    QueryXinYongcar_card_number: TStringField;
    QueryXinYongcar_type: TStringField;
    QueryXinYongengine_number: TStringField;
    QueryXinYongcar_number: TStringField;
    QueryXinYongcar_color: TStringField;
    QueryXinYongbad_record_tag: TStringField;
    QueryXinYongbegin_date: TDateTimeField;
    QueryXinYongreturn_date: TDateTimeField;
    QueryXinYongreal_return_date: TDateTimeField;
    QueryComp: TQuery;
    DataSourceComp: TDataSource;
    DataSourceGongGao: TDataSource;
    QueryGonggaoFabu: TQuery;
    DataSourceGonggaoFabu: TDataSource;
    QueryGeRen: TQuery;
    DataSourceGeRen: TDataSource;
    DataSourceFlag: TDataSource;
    TableHistory: TTable;
    DataSourceHistory: TDataSource;
    TableCompSet: TTable;
    DataSourceCompSet: TDataSource;
    TableSite: TTable;
    DataSourceSite: TDataSource;
    TableUser: TTable;
    DataSourceUser: TDataSource;
    TableCompSetcomp_code: TStringField;
    TableCompSetcomp_name: TStringField;
    TableCompSetcomp_address: TStringField;
    TableCompSetpostcode: TStringField;
    TableCompSetcontact_person: TStringField;
    TableCompSetcontact_phone: TStringField;
    TableCompSetlicence_date: TDateTimeField;
    TableCompSetopen_bank: TStringField;
    TableCompSetbank_acct: TStringField;
    TableCompSettax_register: TStringField;
    TableCompSetnote: TStringField;
    TableSitecomp_code: TStringField;
    TableSitesite_code: TStringField;
    TableSitesite_name: TStringField;
    TableSitesite_address: TStringField;
    TableSitecontact_person: TStringField;
    TableSitecontact_phone: TStringField;
    TableSitepostcode: TStringField;
    TableSitenote: TStringField;
    TableSitedevice_number: TSmallintField;
    TableCompSetcommercial_acct: TStringField;
    QueryCompSet: TQuery;
    DsQueryCompSet: TDataSource;
    QueryCompSetcomp_code: TStringField;
    QueryCompSetcomp_name: TStringField;
    QueryCompSetcomp_address: TStringField;
    QueryCompSetpostcode: TStringField;
    QueryCompSetcontact_person: TStringField;
    QueryCompSetcontact_phone: TStringField;
    QueryCompSetlicence_date: TDateTimeField;
    QueryCompSetopen_bank: TStringField;
    QueryCompSetbank_acct: TStringField;
    QueryCompSettax_register: TStringField;
    QueryCompSetnote: TStringField;
    QueryCompSetcommercial_acct: TStringField;
    QueryGongGao: TQuery;
    TableUsercomp_code: TStringField;
    TableUsersite_code: TStringField;
    TableUserusername: TStringField;
    TableUserlogin_name: TStringField;
    TableUserlogin_status: TStringField;
    TableUserpassword: TStringField;
    TableUserprivilege: TStringField;
    TableUsernote: TStringField;
    TableUserpass_word: TStringField;
    DataSourcehei: TDataSource;
    TableHei: TQuery;
    QueryGonggaoFabubulletincode: TIntegerField;
    QueryGonggaoFabubulletin_date: TDateTimeField;
    QueryGonggaoFabubulletin_content: TStringField;
    QueryGonggaoFabucomp_code: TStringField;
    QueryGonggaoFabusite_code: TStringField;
    QueryGonggaoFabutag: TStringField;
    QueryHei: TQuery;
    DataSourceHeiDan: TDataSource;
    QueryLeaseCar: TQuery;
    QueryBrush: TQuery;
    BackUpData: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure TableSiteBeforePost(DataSet: TDataSet);
    procedure TableUserBeforePost(DataSet: TDataSet);
    procedure TableUserAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HuaXiaData: THuaXiaData;

implementation

uses AddUser,Login;

{uses Shenfen, Zulin;}

{$R *.DFM}






procedure THuaXiaData.DataModuleCreate(Sender: TObject);
begin
Try
with Databasehx do
     begin
     Connected := False;
     Params.Values['USER NAME'] := 'qiao';
     Params.Values['PASSWORD'] := 'qiao';
     LoginPrompt := False;
     Connected := True;
     end;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THuaXiaData.TableSiteBeforePost(DataSet: TDataSet);
begin
Try
If (HuaXiaData.TableSite.State=DsEdit) Or (HuaXiaData.TableSite.State=DsInsert) Then
    Begin
    HuaXiaData.TableSite.Edit;
    HuaXiaData.TableSite.FieldByName('comp_code').AsString:=HuaXiaData.TableCompSet.FieldByName('comp_code').AsString;
    End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THuaXiaData.TableUserBeforePost(DataSet: TDataSet);
begin
Try
If FormUser.DbEdit8.text='' Then
   HuaXiaData.TableUser.FieldByName('comp_code').AsString:='';
If FormUser.DbEdit9.text='' Then
   HuaXiaData.TableUser.FieldByName('site_code').AsString:='';
If FormUser.DbComboBox1.text='' Then
   HuaXiaData.TableUser.FieldByName('privilege').AsString:='';
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure THuaXiaData.TableUserAfterScroll(DataSet: TDataSet);
begin
If (TableUser.FieldByName('privilege').AsString='系统管理员') And (TableUser.FieldByName('login_name').AsString<>Login.LoginName) Then
   TableUser.Fields.FieldByName('Pass_word').EditMask:='******'
Else
   TableUser.Fields.FieldByName('Pass_word').EditMask:='';
end;

end.