机动车合格证信息管理系统 V4.0

机动车合格证信息管理系统 V4.0

机动车合格证信息管理系统V4.0纯delphi代码实现，界面风格一致，方便客户上手，完全兼容V4.0数据库。

• 软件登录

procedure TFrmLogin.btnOKClick(Sender: TObject);
begin
  inherited;
  Sql := 'SELECT * FROM HGZ_User where loginname = %s and iif(isnull(password),'''',password) = %s';
  sql := Format(Sql, [QuotedStr(edtUser.Text), QuotedStr(edtPwd.Text)]);
  if DM.SqlExists(Sql) then
  begin
    Application.MainForm.Show;
    Self.Tag := 1;
    Close;
  end
  else
  begin
    ShowError('用户名或密码错误，请重新输入！');
    edtUser.SetFocus;
  end;
end;

• 主界面

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  dxRibbon1.ActiveTab := dxRibbon1Tab1;
  mdiForms := TStringList.Create;

  mdiForms.Add('数据管理');
  mdiForms.Add('本地数据查询');
  mdiForms.Add('车型数据维护');
  mdiForms.Add('配置信息维护');
  mdiForms.Add('用户维护');
  mdiForms.Add('远程数据查询');
  mdiForms.Add('未打印数据');
  mdiForms.Add('待上传数据');
  mdiForms.Add('已上传数据');
  mdiForms.Add('应提交上传申请数据');
  mdiForms.Add('应提交补传申请数据');
  mdiForms.Add('应提交修改申请数据');
  mdiForms.Add('应提交撤销申请数据');
  mdiForms.Add('待上传数据（48小时内）');
  mdiForms.Add('待补传数据');
  mdiForms.Add('修改后未上传数据');
  mdiForms.Add('撤销后未上传数据');
  mdiForms.Add('上传新增申请');
  mdiForms.Add('上传补传申请');
  mdiForms.Add('上传修改申请');
  mdiForms.Add('上传撤销申请');
  mdiForms.Add('撤销申请历史');
  mdiForms.Add('待导出数据');
  mdiForms.Add('已导出数据');
  
  Self.Caption := APPTITLE;

  cxLocalizer1.Active := True;
  cxLocalizer1.LanguageIndex := 1;

  Timer1.Enabled := True;

  dxStatusBar1.Panels[0].Text := '合格证服务运行中';
  dxStatusBar1.Panels[1].Text := '当前线路：' + DM.GetXTSZ(XTSZ_FWXL);
end;

• 新增合格证页面

procedure TFrmHGZ.btnSaveClick(Sender: TObject);
var
  flag: Boolean;
begin
  inherited;
  if qryCL.State in [dsBrowse] then
  begin
    qryCL.Edit;
  end;
  if (qryCL.FieldByName('status').AsString = '新增未保存') then
  begin
    Sql := Format('select 1 from h_cl where WZHGZBH = %s', [QuotedStr(edtHGZBH.Text)]);
    if DM.SqlExists(Sql) then
    begin
      ShowError('已经存在此合格证。');
      Exit;
    end;
    qryCL.FieldByName('status').AsString := '未打印';
    flag := Save(false);
  end;
  if (qryCL.FieldByName('status').AsString = '未打印') then
  begin
    flag := Save(true);
  end
  else if (qryCL.FieldByName('status').AsString = '已打印未上传') then
  begin
    flag := Save(true);
  end
  else if (qryCL.FieldByName('status').AsString = '已经上传') then
  begin
    if (HasChange()) then
    begin
      qryCL.FieldByName('status').AsString := '已修改未打印';
      flag := Save(true);
    end;
  end
  else if (not (qryCL.FieldByName('status').AsString = '已删除未上传')) then
  begin
    if (qryCL.FieldByName('status').AsString = '已修改未打印') then
    begin
      flag := Save(true);
    end
    else if (qryCL.FieldByName('status').AsString = '已修改未上传') then
    begin
      if (HasChange()) then
      begin
        qryCL.FieldByName('status').AsString := '已修改未打印';
        flag := Save(true);
      end;
    end
  end;

  if (flag) then
  begin
    ViewChange;
    ShowInfo('保存成功。');
  end;

end;