uligon.~pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit ULIGON;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls, ExtCtrls,IniFiles;

type
  TFLIGON = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DtTRQ: TDateTimePicker;
    Cobbm: TComboBox;
    Cobyh: TComboBox;
    EdtMM: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure CobbmChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure bmchange(strtmp:string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FLIGON: TFLIGON;

implementation
   USES MAIN,U_dm,UsysPub,UsysConst,UMODIFYPW;
{$R *.dfm}

procedure TFLIGON.bmchange(strtmp:string);
var
  strSQL:string;
begin
  if strtmp<>'' then
  begin
    strSQL:='select CYZID DaiMa,CZYMC MingCheng from JCCZYXX where BMID='+''''+strtmp+'''';
  end
  else
    strSQL:='select CYZID DaiMa,CZYMC MingCheng from JCCZYXX';
  TStrczy:=SetCmbxItem(Cobyh,DM.m_clADOQry_Temp,strSQL,True);
end;

procedure TFLIGON.FormShow(Sender: TObject);
var
  strSQL,strBM,strBMtmp,strCZY:string;
  i:integer;
  MyIniFile: TIniFile;
  StrIniPath,StrApplicatePath:String;
begin
  StrApplicatePath := GetApplicatePath();
  StrIniPath :=  StrApplicatePath + 'SysParam.ini';
  MyIniFile  := TIniFile.Create(StrIniPath);
  with MyIniFile do
  begin
      strBMtmp := ReadString('Other','CZBM', 'WY');
      strCZY := ReadString('Other','CZY', 'WY');
  end;
  MyIniFile.Free;
  strBM:='';
  strCZY:='';
  DtTRQ.Date:=now();
  strSQL:='select BMID DaiMa,BMMC MingCheng from JCBMXX';
  TStrbm:=SetCmbxItem(Cobbm,DM.m_clADOQry_Temp,strSQL,True);
  Cobbm.ItemIndex:=TStrbm.IndexOf(strBMtmp);
  i:=Cobbm.ItemIndex;
  if i>=0 then
    strbm:=Trim(TStrbm.Strings[i]);
  bmchange(strbm);
  Cobyh.ItemIndex:=TStrczy.IndexOf(strCZY);
  if strBMtmp='' then
    Cobbm.ItemIndex:=0;
  if strCZY='' then
    Cobyh.ItemIndex:=0;
  EdtMM.SetFocus;
end;

procedure TFLIGON.CobbmChange(Sender: TObject);
var
  strBM:string;
  i:integer;
begin
  strBM:='';
  i:=Cobbm.ItemIndex;
  if i>=0 then
    strbm:=Trim(TStrbm.Strings[i]);
  bmchange(strbm);
  EdtMM.SetFocus;
end;

procedure TFLIGON.SpeedButton1Click(Sender: TObject);
var
  strSQL,strPW,strCZY:string;
  i:integer;
begin
  strCZY:='';
  i:=Cobyh.ItemIndex;
  if i>=0 then
    strCZY:=Trim(TStrczy.Strings[i]);
  strPW:=Trim(Encrypt(EdtMM.Text,255));
  if strCZY='' then
  begin
    Application.MessageBox('请选择登陆人！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    abort;
  end;
  strSQL:='select * from JCCZYXX where (CYZID='
             +''''+strCZY+''''
             +')and(CZMM='+''''+strPW+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,0) then
  begin
    if DM.m_clADOQry_Temp.RecordCount>0 then
    begin
      try
        Application.CreateForm(TFMODIFYPW, FMODIFYPW);
        FMODIFYPW.ShowModal;
      finally
        FMODIFYPW.Free;
      end;
    end
    else
    begin
        Application.MessageBox('请正确输入原密码！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    end;
  end
  else
    Application.MessageBox('数据库连接失败！',MsgBxCaption,MB_OK+MB_ICONWARNING);
end;

procedure TFLIGON.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    EnterToChangeFocus(self,key);
end;

procedure TFLIGON.BitBtn2Click(Sender: TObject);
begin
  self.Close;
  application.Terminate;
end;

procedure TFLIGON.BitBtn1Click(Sender: TObject);

var
  strSQL,strPW,strCZY,strbm:string;
  i:integer;
  MyIniFile: TIniFile;
  StrIniPath,StrApplicatePath:String;
begin
  strCZYM :=''; //操作员编号
  strCZYMC:='';
  strCZBM:='';
  strCZBMMC:='';
  strCZY:='';
  i:=Cobyh.ItemIndex;
  if i>=0 then
    strCZY:=Trim(TStrbm.Strings[i]);
  strCZYM:=strCZY;
  strCZYMC:=Trim(Cobyh.Text);
  i:=Cobbm.ItemIndex;
  if i>=0 then
    strbm:=Trim(TStrczy.Strings[i]);
  strCZBM:=strbm;
  strCZBMMC:=Trim(Cobbm.Text);
  strPW:=Trim(Encrypt(EdtMM.Text,255));
  if strCZY='' then
  begin
    Application.MessageBox('请选择登陆人！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    abort;
  end;
  strSQL:='select * from JCCZYXX where (CYZID='
             +''''+strCZY+''''
             +')and(CZMM='+''''+strPW+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,0) then
  begin
    if DM.m_clADOQry_Temp.RecordCount>0 then
    begin
      StrApplicatePath := GetApplicatePath();
      StrIniPath :=  StrApplicatePath + 'SysParam.ini';
      MyIniFile  := TIniFile.Create(StrIniPath);
      with MyIniFile do
      begin
        WriteString('Other','CZBM', strCZBM);
        WriteString('Other','CZY', strCZY);
      end;
      MyIniFile.Free;
      MainForm.StatusBar.Panels[1].Text:='当前用户：'+strCZYMC;
      self.Close;
    end
    else
    begin
        Application.MessageBox('密码错误，请重新输入！',MsgBxCaption,MB_OK+MB_ICONWARNING);
        EdtMM.SetFocus;
    end;
  end
  else
    Application.MessageBox('数据库连接失败！',MsgBxCaption,MB_OK+MB_ICONWARNING);
end;

end.