📄 unitmain.pas

📁 绿色衡器称重系统(串口）
💻 PAS
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
unit unitMain;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
//             该系统源码归青岛东亚电子衡器有限公司版权所有
//                                  Author:HaiBin
//      Email:qdseashore@163.com     DateTime:2005.06.22
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++//
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls,unitFun, ComCtrls, StdCtrls, Buttons, DB, ADODB,
  WinSkinStore, WinSkinData, Mask, DBCtrls, Grids, DBGrids,
  OleCtrls, QRCtrls, QuickRpt, RpCon, RpConDS, RpBase, RpSystem, RpDefine,
  RpRave,ShellAPI, MSCommLib_TLB,Registry,iniFiles;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Panel3: TPanel;
    adoConn: TADOConnection;
    adoNick: TADOQuery;
    N6: TMenuItem;
    N7: TMenuItem;
    Panel5: TPanel;
    Panel6: TPanel;
    Shape4: TShape;
    Label5: TLabel;
    Shape5: TShape;
    Label6: TLabel;
    Shape6: TShape;
    Label7: TLabel;
    Panel7: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    Label15: TLabel;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label11: TLabel;
    DBMemo1: TDBMemo;
    GroupBox2: TGroupBox;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    DataSource1: TDataSource;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    dbedtWweight: TDBEdit;
    dbedtFweight: TDBEdit;
    dbedtNweight: TDBEdit;
    Label20: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    N12: TMenuItem;
    dbcCPH: TDBComboBox;
    adoQDict: TADOQuery;
    dbcCPHN: TDBComboBox;
    dbcHPMC: TDBComboBox;
    dbcFHDW: TDBComboBox;
    dbcSHDW: TDBComboBox;
    adoTemp: TADOQuery;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N16: TMenuItem;
    lbJianJinDanHao: TDBText;
    ADOTable1: TADOTable;
    RvProject1: TRvProject;
    RvSystem1: TRvSystem;
    RvDataSetConnection1: TRvDataSetConnection;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    MSComm1: TMSComm;
    Label8: TLabel;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    SpeedButton1: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N36: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ADOTable1BeforePost(DataSet: TDataSet);
    procedure dbcCPHNChange(Sender: TObject);
    procedure dbcCPHChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure ADOTable1AfterPost(DataSet: TDataSet);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure dbcHPMCKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcCPHKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcCPHNKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcFHDWKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dbcSHDWKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBMemo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
  private
    { Private declarations }
    procedure getTmpTBInfo;
    procedure getUserNick;
    procedure controlDBGridFieldVisible;
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  objFun:TFun;
  OldDeviceData:String;
implementation

uses unitJoin, unitModifyPWD, unitUmanage, unitDanWei, unitHuopin,
  unitChePaiQ, unitPortConfig, unitChePaiN, unitCarHistory, unitHuiZongRep,
  unitAbout, unitDataBaseSave, unitDatabaseOpen, unitComapy,
  unitFieldManage;

{$R *.dfm}

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
Action:=caNone;
frmJoin.Close;
except
end;
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
frmJoin.Close;
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
if Not Assigned(frmModifyPWD) then
begin
 frmModifyPWD:=TfrmModifyPWD.Create(application);
 frmModifyPWD.Show;
end
else
 frmModifyPWD.Show;
 FHelper.Speak('此模块主要用来修改您登录时的密码。','');
end;
procedure TfrmMain.N3Click(Sender: TObject);
begin
 if Not Assigned(frmUManage) then
begin
 frmUManage:=TfrmUManage.Create(application);
 frmUManage.Show;
end
else
 frmUManage.Show;
 FHelper.Speak('此模块主要用来添加用户及可访问的权限。','');
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
Connstr:string;
begin
if Not adoConn.Connected then
begin
 Connstr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Paramstr(0)) +'weight.mdb;Persist Security Info=False;Jet OLEDB:Database Password=qdseashore960501';
 adoConn.ConnectionString:=Connstr;
 adoConn.Open;
end;
 adoTable1.Connection:=adoConn;
 adoTable1.TableName:='uMaster';
if Not adoTable1.Active then
begin
 adoTable1.Open;
end;
GetUserNick;
objFun:=TFun.Create;
end;

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
wyear,wMonth,wDay:Word;
 sbuff,dbuff:String;
 x,y:integer;
 fbuff:double;
 eCode:Integer;
begin
 try
  //数据分析START
  if Mscomm1.InBufferCount>10 then
  begin
    sbuff:=Mscomm1.Input;
   sbuff:=Copy(sbuff,Pos('=',sbuff)+1,length(sbuff));    //查找到分隔符并去除分隔符前的字符。
    sbuff:=Copy(sbuff,1,Pos('=',sbuff)-1);                //再找到字符串后跟的分隔符并驱除分隔符后的字符。
    y:=Length(sbuff);
    setLength(dbuff,y);
    for  x:=1 to Length(sbuff) do         //反转字符
    begin
        dbuff[x]:=sbuff[y];
        y:=y-1;
    end;
    val(dbuff,fbuff,eCode);
    if eCode=0 then
    begin
    sbuff:=floattostr(fbuff);
    Label8.Caption:=sbuff;
    MSComm1.InBufferCount:=0;
    end
    else
    begin
    FHelper.Speak('警告！您的设备端口配置有误导致无法正常读取数据!','');
    //Timer1.Enabled:=False;
    Exit;
    end;
  end;
 //数据分析END
if (Trim(Label8.Caption)=OldDeviceData) and (Label8.Caption='0')  then
  begin
   Shape4.Brush.Color:=clRed;
   Shape5.Brush.Color:=clMaroon;
   Shape6.Brush.Color:=clRed;
  end
     else
        if Trim(Label8.Caption)=OldDeviceData then
        begin
        Shape4.Brush.Color:=clRed;
        Shape5.Brush.Color:=clMaroon;
        Shape6.Brush.Color:=clMaroon;
        end
        else
          if Trim(Label8.Caption)<>OldDeviceData then
            begin
              Shape4.Brush.Color:=clMaroon;
              Shape5.Brush.Color:=clRed;
              Shape6.Brush.Color:=clMaroon;
            end;
OldDeviceData:= Label8.Caption ;
Decodedate(now,wyear,wmonth,wday);
label2.Caption:=timetostr(now);
label3.Caption:=format('%s年%s月',[vartostr(wyear),vartostr(wMonth)]);
label4.Caption:=format('%s',[vartostr(wDay)]);
statusbar1.Panels.Items[0].Text:='当前系统时间: '+ datetimetostr(now);
except
end;
end;

procedure TfrmMain.getUserNick;
var
sql:string;
begin
 sql:='select usn from uManage where id=' + quotedstr(userID);
 if Not adoCOnn.Connected then
 adoConn.Open;
 adoNick.Close;
 adoNick.SQL.Clear;
 adoNick.SQL.add(sql);
 adoNick.Open;
 if adoNick.RecordCOunt>0 then
 begin
  statusbar1.Panels.Items[1].Text:='当前司称员: ' + adoNick.FieldByName('usn').asString;
 end;
end;

procedure TfrmMain.N7Click(Sender: TObject);
begin
 if Not assigned(frmDanWei) then
 begin
  frmdanWei:=TfrmDanWei.Create(application);
  frmDanwei.Show;
 end
 else
 begin
 frmDanwei.Show;
 end;
 FHelper.Speak('此模块主要管理单位字典表!','');
end;
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -